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CHAPTER  1 
GENERAL  INTRODUCTION  AND  REVIEW  OF  THE  LITERATURE 

The  development  of  effective  computer  algorithms  for 
general  problem  solving  has  long  been  considered  one  of  the 
fundamental  goals  of  artificial  Intelligence  research. 
Within  the  AI  community  there  appear  to  be  two  distinct  points 
of  view  concerning  the  design  of  such  algorithms.  The  first  or 
"formalistic"  view  is  based  on  the  claim  that  problem  solving 
is  a  special  case  of  theorem  proving.   Here,  a  problem  solving 
system  begins  by  formulating  the  problem  as  the  axioms  of  a 
logical  system.  Next  a  mechanical  theorem  prover  is  applied 
to  produce  a  proof  of  the  existence  of  a  solution  to  the  prob- 
lem. Usually  the  techniques  used  to  produce  the  proof  are 
independent  of  the  particular  problem  area.  Finally  the  proof 
is  translated  back  into  a  solution  of  the  original  problem. 

This  methodology  for  general  problem  solving  is  quite 
attractive.   The  development  of   algorithms   may  concentrate 
on  the  formal   theorem  prover  rather  than  on  the  specific 
problem  area,   so  each  advance  may  contribute  to  problem 
solving  as  a  whole.   Theorem  proving  may  be  analyzed 
mathematically  in  terms  of  consistency,  completeness,  and 
adequacy.   Eventually  we  may  be  able  to  compare  the  efficiency 
of  two  algorithms  without  comparing  the  efficiency  of  two 
implementations.   Since  the  descriptions  of  these  algorithms 
are  precise  mathematical  statements,  they  can  be  easily 
communicated.  Finally  the  meta-theorems  which  may  be  proved 
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are  often  elegant  and  interesting  in  their  own  right. 

However,  such  an  approach  has  so  far  proved  to  be 
extremely  inefficient.   Among  the  reasons  for  this  are  the 
following:  Theorem  provers  do  not  use  higher  level  planning, 
and  their  search  procedures  seem  to  lack  structure.  They  do 
not  make  use  of  specialized  information  about  the  problem. 
Indeed,  the  very  generality  of  uniform  procedures  seems  to 
imply  that  information  about  specific  problem  domains  cannot 
be  included.  Theorem  provers  almost  always  use  a  poor  notation, 
such  as,  for  example,   n  applications  of  the  successor  function 
to  represent  n.   While  we  may  formalize  any  fact  within  predi- 
cate calculus  it  is  more  difficult  to  formalize  how  to  use 
that  fact.   Such  information,  which  is  sometimes  called 
procedural  knowledge,  often  cannot  be  given  to  a  theorem 
prover  at  all.  Finally  theorem  provers  tend  to  get  "lost"  in 
what  are  minor  aspects  of  a  problem.  For  example  most  theorem 
provers  find  it  difficult  to  show  that  3  times  2  is  6;  worse 
still,  they  find  it  more  difficult  to  show  that  3  times  2  is  not  7 

The  other  point  of  view  among  AI  researchers  is  called 
"intuitive".   Here  programs  are  designed  to  conform  to  ideas 
about  how  people  solve  particular  problems.  Usually  these 
problems  come  from  some  toy  domain.  These  intuitive   systems 
are  strong  exactly  where  the  formalistic  systems  are  weak. 
That  is  they  are  efficient  but  obscure.  For  example,  it  is 
clear  that  Winograd's  blocks  vrorld  system  [44]   is  an  effective 
program;  yet  there  is  no  simple  explanation  of  exactly  how  it 
works . 

-2- 


Our  own  approach  to  problem  solving  has  been  bet(«^en  these 
two  extremes  but  closer  to  the  first.   We  began  with  a  new 
theory  of  formal  deduction  which  is  based  on  a  hierarchical 
system  of  cooperating  theorem  provers.   Using  a  special  case 
of  this  theory  we  developed  a  computer  program  which  appears 
superior,   on  an  initial  set  of  test  problems,  to  resolution- 
based  schemes;  we  then  extended  the  theorem  proving  system 
in  two  directions.   The  first  of  these,  partial  evaluation, 
allowed  procedural  knowledge,  heuristics,  and  domain-dependent 
information  to  be  given  to  the  theorem  prover.  The  second 
extension,  completions,  is  a  way  of  summarizing  the  partial 
proofs  developed  by  a  theorem  prover  with  an  eye  toward 
producing  useful  lemmas.   The  theorem  prover  together  with 
these  extensions  serves  as  the  interpreter  for  a  programming 
language,  which  we  call   Dilemma.   This  language  is  of  very 
high  level.   The  general  objective  underlying  the  design  of 
Dilemma  has  been  to  provide  a  programming  language  in  which 
all  of  the  diverse  heuristics  of  successful  AI  programs  may 
be  used  in  conjunction  with  the  naturalness  and  clarity  of 
the  predicate  calculus.   Finally  we  wrote  a  program  in  Dilemma, 
which  produces  proofs  for  a  small  subset  of  geometry  theorems. 
Experimental  results  show  that  this  program  can  solve  most  of 
the  geometry  problems  solved  by  intuitive  AI  systems;  yet  the 
program  is  much  shorter. 
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Our  experience  suggests  that  the  techniques  used  by 
Dilemma  significantly  extend  the  range  of  application  of 
resolution-based  systems.   In  some  cases  these  techniques 
give  a  realistic  alternative  to  the  more  ad  hoc  intui- 
tive   programs,  with  the  advantage  that  programs 
written  in  Dilemma  are  much  easier  to  write  and  to  read  and 
vet  not  much  more  time  consximing  for  a  machine  to  execute. 

The  remainder  of  this  chapter      is  a  historical 
review  designed  to  show  how  our  work  is  related  to  previous 
research.    Chapter  2  develops  the  theorem  proving  system 
mathematically.     Chapter  3      concentrates  on  the  language. 
Chapter  4  describes  the  geometry  program.   Chapter  5  gives 
the  experimental  results  which  we  obtained  with  the  geometry 
program.   Finally  Chapter  6  gives  our  conclusions  and  some 
ideas  on  future  work. 
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1.1   Declarative  vs.  Imperative  Languages 

In  1958,  John  McCarthy  [25]  proposed  writing  a  program  for 
solving  problems  by  manipulating  sentences  in  a  formal  language. 
He  wished  to  have  a  program  which  would  learn  in  a  way 
similar  to  the  way  humans  do.     McCarthy  argued  that,  in 
order  for  a  program  to  be  capable  of  learning  something  it  must 
be  capable  of  being  told  about  it.    Therefore,  interesting 
ideas  must  be  expressible  in  simple  ways.   To  focus  on  simple 
ways  to  express  ideas  he  looked  at  the  difference  between 
the  form  of  language   used  to  teach  people  and  that  used  to 
teach  machines.   The  difference  was:   a  machine  is  instructed 
mainly  in  the  form  of  a  sequence  of  imperative  sentences  while 
a  person  is     taught  mainly  in  declarative  sentences  describ- 
ing the  situation  in  which  action  is  required  together  with 
a  few  imperatives.  Some  tasks  are  given  to  people  in  the  first 
form, e.g.  cooking  directions,  how  to  build  a  model  airplane, 
how  to  knit.   However,   complex  tasks   such  as  how  to 
prove  a  theorem  of  mathematics  are  taught  declaratively . 
McCarthy's  distinction  between  declarative  and  imperative 
languages  is  basic  to  our  work.   Essentially,  our  view  is  that 
declarative  languages  do  not  contain  flow- of- control  statements. 
They  contain  definitions,  concepts  and  facts.   Any  of  these 
may  be  applied  at  any  place.   On  the  other  hand,  imperative 
languages   have  DO  loops,  GO  TOs,   WHILES  and  other  control  dictions, 
all  of  which  serve  to  specify  what  to  do  next. 
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1.1.1  Advantages  of  Declarative  Languages  ■  .. 

(1)  Previous  knowledge  can  be  used.  A  machine  given  a 
declarative  sentence  can  integrate  it  into  all  the 
previous  declarations. 

(2)  Declarative  sentences  have  logical  consequences. 
Ideally,  the  machine  could  automatically  deduce  for 
itself  the  consequences  of  what  it  already  knows. 

(3)  Since  the  declarative  sentences  may  be  accessed  in  any 
order  their  meaning  is  much  less  dependent  on  the  order 
that  they  are  given  to  a  machine.   This  can  facilitate 
later  improvements  (or  afterthoughts) . 

(4)  The  effects    of  a  new  declarative  are  less  dependent 
on  the  previous  state  of  the  system.   When  a  change 

is  made  to  an  imperative  system   it  generally  requires 

much     detailed  knowledge  about  the  system. 

In  declaratives,  changes  may  be  made  knowing  less. 

(5)  Declarative  statements  are  easier  for  people  to 
understand.   A  long  program  in  an  imperative  form 

is  usually  difficult  for  a  person  to  follow.    He  must 
first  learn  the   global  flow  of  the  program  and  then 
the  detailed  interactions  of  each  part.  Parts  of  declarative 
programs  on  the  other  hand  may  be  understood  in  isolation. 
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1.1.2  Advantages  of  Imperative  Languages 

(1)  Imperative  programs  are  faster,  since  the  flow  of 
control  is  explicit  and  no  search  is  required. 

(2)  Computers  execute  imperative  instructions. 

The  problem  of  writing  a  compiler  or  interpreter 
is  sim.plified  since  the  source  and  target  languages 
are  of  similar  form. 

(3)  When  it  is  clear  how  to  do  something,  it  is  easier 
to  state  it  as  an  imperative;  when  we  try  to  encode 
a  sequence  of  commands  as  declaratives  we  have  to 
use  unnatural  tricky  constructions,  such  as  state 
variables. 

(4)  The  search  strategies  can  be  explicit  in  imperative 
forms.   If  we  do  not  know  the  correct  search  strategy 
then  we  do  not  really  know  how  to  solve  the  problem. 

In  this  case  the  use  of  declaratives  just  hides  our  ignorance. 

1 .2   Deductive  Languages 

The  fact  that  imperative  programs  are  faster  has  often 
been  considered  to  outweigh  all  the  advantages  of  declarative 
programs.   Almost  all  computer  languages  have  been  imperative. 
Minsky  [26]   in  his  review  of  AI   felt  that  languages  of  the 
type  we  are  calling  declarative  could  best  be  called 

"descriptive".   This  was  based  on  the  view  that  each  program 
statement  would  represent  a  high  level  abstract  descrip- 
tion of  a  situation.   Hewitt  [20]  offered  the  name 

"procedural"  for  the  class  of  languages  we  call  imperative. 
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He  claimed  that  knowlege  could  best  be  represented  in  a 
machine  in  the  form  of  statements  of  a  language  which  could 
be  directly  executed,  e.g.,  a  definition  would  be  a  list  of 
properties  and  the  code  to  actually  test  if  an  item  had 
these  properties. 

Some  three  years  after  his  first  paper,  McCarthy  [25] 
gave  a  sketch  of  how  his  program  would  operate.   He  stated 
that  a  logical  system  more  or  less  in  the  style  of  first 
order  predicate  calculus  would  be  the  right  form  for  a 
declarative  language. 

First  order  logic  has  several  attractive  features  for 
a  declarative  language.   First  it  is  well  understood. 
Next,  many  people   know  it.   It  is  clear  that  people  can 
use  it.   Finally  its  mathematical  structure  has  been  well 
studied. 

McCarthy  envisaged  a  system  in  which  first  order 
predicate  calculus  statements  would  be  read  in,   and 
some  sort  of  deduction  scheme   (possibly  modus  ponens) 
would  be  used  to  deduce  consequences  until  the  answer 
came  out. 

Deduction  is  the  central  problem  in  using  predicate 
calculus  as  a  programming  language.   How  could  logical  infer- 
ence be  set  up  on  a  computer?   In  1964  several  researchers 
attempted  to  build  systems  which  used  predicate  calculus  as  an 
internal  form.   In  Raphael's  [29]  SIR  program,  he  allowed  six 
predicate  relations  and  wrote  separate  procedures  for  deduction 
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from  each  pair.   Black  [  3 ]  wrote  a  question  answering  system 
using  several  inference  rules,   each  of  which  was  a  restricted 
form  of  modus  ponens   using  a  weak  form  of  unification  rule. 
Experience  with  these  systems  showed  that  they  were  hard  to 
use  and  harder  to  extend.   For  example   to  add  a  new  predicate 
to  Raphael's  program  one  had  to  be  very  familiar  with  the 
internals,   and  had  to  write  a  procedure   specifying  just  how 
this  predicate  was  related  to  all  of  the  others.    Cordell  Green 
developed  the  QAl  question  answering  system  [14]  as  another 
limited  logic  system.   However,  it  could  not  do  such  simple 
problems  as:   given  "Every  person  has  two  hands"  and 
"John  is  a  person",  answer  the  question  "How  many  hands 
does  John  have?"  •  ,   ' 

1.3    Resolution 

An  alternative  way  to  provide  deduction  with  a  computer 
system  was  clearly  required.   Researchers   turned 
from  ad  hoc  systems  to  uniform  procedures  suggested  by 
mathematical  logic.   The  search  for  such  procedures  dates  back 
to  Leibniz  (1646-1716)  .   The  first  effective  procedure  was 
found  by  Herbrand  in  1930.   It  wa? ,  in  fact,  implemented 
on  a  computer  by  Gilmore  [12].     This  early  work  showed  that 
more  efficient  techniques  were  necessary.  Davis  and  Putnam  [  8  ] 
found  several  ways  to  improve  Herbrand 's  procedure  in  1960. 
Darlington  [  7]  implemented  their  system  in  196  2.   A  major 
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breakthrough  in  theorem  proving  was  the  development  of  the 
resolution  technique  by  Robinson  in  1965  [3C].  Resolution 
has  two  vital  properties.  First  it  is  very  easily  implemented 
on  a  com^puter.   Second,  it  is  simple  to  work  with  mathe- 
matically. 


1.4   Languages  Based  on  Formal  Logic 

Resolution  quickly  captured  the  imagination  of  AI 
researchers.   Cordell  Green  and  Bertram  Raphael  developed  the 
QA2  [15]  system  (1968)  using  resolution  and  first  order  logic. 
Coles  [  6  ]   wrote  an  English-to-logic  translator  which  would 
change   subsets  of  English  to   the  precise  form  of 
QA2  input.   Early  results  using  this  system  were  very  promising. 
Several  very   simple  problems  were  solved,   but   difficulties 
began  to  appear.   The  speed  of  operation  was  very  low.   Small 
changes  in  formulation  could  make  it  impossible  to  solve  problems, 
Researchers  began  to  feel  that  some  im.perative  code  was 
necessary.   Green  [15]    argued  that  one  could  conceal   impera- 
tives in  the  declarative  forrr.ulation.   He  began  to  talk  of 
"programming  in  the  predicate  calculus  for  efficiency" ,   and 
suggested    combining  imperative  and  declarative  code. 
He  associated  a  LISP  program  with  selected  predicates  and 
functions.   The  idea,  which  we  will  also  use,  was  to  execute 
the  LISP  program  within    the  resolvent.   For  example 
(TIMES  2  2)  could  evaluate   to  4.   Using  executable  predicates. 
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Green  developed  QA3 .   This  sytem  could  solve  the  'Tower  of 
Hanoi'  problem,  using  an  executable  predicate  to  check  legal 
moves.   Executable  predicates  were  effective,  but  executable 
functions  were  not,  for  the  following  reason:  After  evaluating 
the  executable  function,  (TIMES  2  2)  to  4 ,  it  could  then  be 
necessary  to  unify  (TIMES  2  X)  with  4.  Since  these  cannot  be 
made  identical,  functional  evaluation  seemed  too  difficult. 
One  possible  way  of  unifying  (TIMES  2  X)  with  4  consists  of 
adding  all  the  equality  substitution  rules  and  the  axiom 
y  =  (TIMES  Z  (QUOTIENT  Y  Z) ) ;   then  it  would  be  possible 
to  apply  substitution  rules  enough  times  to  get 

Z  =  (TIMES  2  X)  V  . . .   P(X)   ...  V  ...  Q(Z) 
Resolution  with  the  axiom  would  give 

...  P (QUOTIENT  Y  2))  V  Q(Y)  ... 

Unification  of  Y  with  4  and  finally  evaluation  of  (QUOTIENT  4  2) 
would  then  give  2.   Unfortunately  such  an  approach  leads  to  an 
enormous  number  of  resolvents.    Since  resolution  is  complete, 
partial  evaluation  is  useful  only  when  it  reduces  the  number 
of  clauses. 

Other  researchers  questioned  the  division;  "How  much 
imperative  vs.  how  much  declarative?"   Hewitt  [21]  developed 
PLANNER,   a  language  which  allowed  intermixing  fragments 
of   LISP  code  and  predicates  within  a  modified 
resolution  theorem  prover.   Here  one  could  provide 
strategy  functions  which  the  built-in  prover  would  call  to 
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select  clauses.   Rulifson  et  al.  developed  QA4  [34],  a  language 
based  on  type  theory  (in  order  to  get  an  co-order  logic)  which 
allowed  clauses  to  contain  programs.  These  programs,  written 
in  a  LISP-like  notation,  would  act  as  a  strategy.  The  differ- 
ence between  QA4  and  PLANNER  was  that  PLANNER  had  a  built-in 
strategy  which  called  user-supplied  subroutines,  while  QA4  had 
the  user  program  as  the  entire  strategy.   Several  very  impres- 
sive programs  were  written  in  PLANNER  [44].  Unfortunately  more 
and  more  code  took  on  an  imperative  flavor.  Sussman  [41]  argued 
that  the  built-in  strategy  of  PLANNER  was,  in  fact,  the  wrong 
one.  In  cooperation  with  McDermott  he  developed  CONNIVER, 
a  language  in  which  users  had  complete  control  over  the  strategy 
being  used.  The  whole  discussion  of  strategies,  often  called 
procedural  embedding,  is  still  not  ended.   One  alternative  often 
suggested  is  that  more  powerful  control  structures  should  be 
added  to  the  language.   A  series  of  languages,  QLISP  [33], 
SCHEME  [42],  etc.,  were  developed  to  add  control  flow  state- 
ments to  a  logical  formalism.  We  will  describe  some  of  the 
details  of  these  mechanisms  in  Section  3.4. 

It  is  our  feeling  that  much  of  this  work  has  been  predi- 
cated on  the  beliefs  that  general  purpose  uniform  procedures  had 
to  be  very  slow,  that  resolution  was  developed  to  its  utmost,  and 
that,  by  their  very  nature,  complete  domain-independent  strategies 
could  not  be  made  efficient.  In  our  opinion  such  conclusions  are 
premature.  In  the  next  chapter  we  will  describe  a  generalization  of 
resolution  which  will  be  more  efficient  than  resolution  alone.  We 
will  describe  the  Dilemma  language,  which  is  at  about  the  declara- 
tive level  of  QA3,  but  is  significantly  more  efficient. 
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CHAPTER  2 
THE  THEOREM  PROVING  SYSTEM 

Theorems  1 ,  2 ,  4 ,  5  and  6  in  this  chapter  have  been 
proved  elsehwere  (Harrison  and  Rubin  [18]);  the   proofs  are 
repeated  here  for  convenience  and  completeness. 


Resolution  Proofs^ 

At  this  point,  we  want  to  consider  a  difficult  resolution 
problem.   This  problem,  which  in  this  formulation  is  near  the 
limit  which  can  be  proved  by  current  programs,  consists  in  show- 
ing that  x-y  =  (-x) • (-y)  in  a  ring.  We  will  use  a  very  simple 
formulation. 

There  is  one  binary  predicate  equality  written  as  =, 
two  binary  functions  +,  and  -,  and  a  unary  function  -  (minus). 
We  will  write  the  clauses  as  implications  for  reasons  which 
will  become  clear  later.   The  input  to  the  theorem  prover 


is : 

Clause 

1.  x+z=y+z^x=y 

2.  x« (y  +  z)  =  x-y  +  x-z 

3.  x-y  +  Z'y  =  (x  +  z)  -y 

4.  0   =  X  +  (-x) 

5.  0   =  -X  +  X 

6.  0  •  X  =  0 

7.  0  =  x-0 

8.  x  =  zAz  =  y-*-y=z 

9.  y  =  x-»-x  =  y 


Function 
unique  sums 

distributive  law 
additive  inverse 

a  property  of  zero 

transitivity  of  equality 

symmetric  property  of  equal- 
ity 
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substitution  properties 
of  equality 


10.  X  =  X  reflexive  property 

11.  w  =  y  A  x-w  =  z  -»■  x«y  =  z 

12.  w  =  xAwy=z->-x-y  =  z 

13.  w=xAw+y=z^  x+y  =  z 

14.  w  =  yAx  +  w=z-»-  x+y  =  z 

15.  a-b  7^  (-a)  •  (-b)  negated   theorem 

Assuming  a  resolution  system  which  started  with  the 
negated  theorem  we  could  get  any  of  a  large  number  of  essen- 
tially equivalent  minimal  refutations,  each  containing  13 
resolutions.   All  of  these  refutations  would  involve  3  instances 
of  clause  8,  and  1  instance  of  each  of  clauses  1,2,3,4,5,6,7,9, 
11,12,15.   Such  refutations  would  differ  only  in  the  order  the 
refutations  are  done.   For  example  the  left  distributive  law 
could  be  used  before  or  after  the  right. 

2.2   Refutation  Graphs 

We  would  like  to  avoid  regarding  these  as  different  proofs. 
To  that  end,  we  introduce  the  following  definition. 

We  define  a  refutation  graph  G  of  a  set  S  of  unsatisfi- 
able  clauses  as  follows.  Let  R  be  a  refutation  of  S.  Consider 
an  undirected  graph  G  whose  nodes  are   the  clauses  of  S  used 
in  R  (if  a  clause  of  S  occurs  more  than  once  in  R,  there  should 
be  one  node  for  each  occurrence) .  Each  branch  in  G  is  associated 
with  two  literals  which  resolve  in  R,  and  connects  the  clauses 
containing  those  literals  (if  merging  or  factoring  occurs  in  R, 
there  is  a  branch  in  G  connecting  every  clause  containing  a 
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literal  which  merges  to  become  the  positive  literal  to  every 
clause  containing  a  literal  which  merges  to  become  the  negative 
literal) .   Figure  1  gives  an  example  of  a  refutation  graph. 
It  is  clear  that  a  set  S  may  have  many  refutation  graphs,  and 
that  each  refutation  graph  can  be  derived  from  one  or  more 
resolution  refutations. 

Performing  a  resolution  on  a  refutation  graph  involves 
replacing  the  parent  clauses  by  the  resolvent,  and  applying  the 
most  general  unifier  to  the  other  clauses  of  the  graph.  The 
literals  of  a  resolvent  will  be  considered  to  retain  the  associ- 
ation they  had  in  the  parent  clauses.   The  definition  of  refuta- 
tion graph  used  in  this  work  is  similar  to  but  not  identical 
with  the  resolution  graph  given  in  [45] . 

Figure  2  is  a  refutation  graph  of  the  set  of  clauses  of  the 
input  problem.   It  is  easy  to  see  that  this  particular  graph 
forms  a  tree,  i.e.  it  has  no  cycles.   Refutation  trees  are  derived 
from  resolution  refutations  which  do  not  use  merging  or  factoring 
(in  fact  from  refutations  which  treat  different  occurrences  of 
the  same  literal  independently. 

We  will  not  consider  the  refutation  graphs  which  are 
not  trees  until  Chapter  6. 


PQ 


1 
-QP 


-P-Q 


-PQ- 


Figure  1 
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(a-b  ^   -a--b) 


(x+z  =  y+z  -*-  X  =  y)     (T) 


(x  =  zAz  =  y->-x  =  y)     (?) 


(3)   (x.y+z.y  =  (x  +  z)  -y)     (x  =  z  a  z  =  y  ->  x  =  y)    (i 


^    (w  =  x  A  wy  =  z  ^  x-y=z)    (x  =  ZAZ  =  y-vx  =  y)    (i 


0   (0  =  X  +  -x)    (0-x  =0)   ® 


@    (0  =  x-O) 


(w=y  A  x'w=z  ->■  X'y=z)   (l 


(y  =  X  ->  X  =  y)   (9)  (x- (y+z)=x.y+x-z)       @ 


®   (0  =  -b  +  b) 


Figure  2.   The  Refutation  Graph  of  the  x-y  =  -x'-y  Example. 
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If  an  unsatisfiable  set  of  clauses  has  a  refutation 
tree  then  it  has  a  particularly  easy  sort  of  refutation. 

Before  we  show  this,  we  need  to  introduce  the  follow- 
ing definitions. 

A  simultaneous  unifier  (su)  of  a  set  of  pairs 

<x.,y.>,  i  =  l,...,n,  is  a  substitution  X  which  satisfies 

x.A  =  y.A,  i  =  l,...,n.   If  there  exists  an  su  for  a  set 
1    -^  1 

of  pairs,  the  set  is  called  simultaneously  unifiable  (which 
we  also  signify  by  su) .   We  use  mgu  to  stand  for  most 
general  unifier.   If  the  pairs  <x.,y.>  are  su,  then  their 
most  general  simultaneous  unifier  (mgsu)  is  any  X    such  that 
for  any  su  y  there  exists  a  a   such  that  Xa   =   \i. 

Lemma  1  (Andrews,  1968) .   The  mgsu  of  a  set  of  su 
pairs  <x.,y.'  is  unique  to  within  alphabetic  variations,  and 
is  computable  as  the  product  X^X-  ,  where  X^  is  the  mgu  of 
<x.,y.>  and  X„  is  the  mgsu  of  <x. ,y.>X^  for  i  =  l,2,...,j-l/ 
j+l,...,n,  and  j  can  be  chosen  arbitrarily. 

Proof;   This  was   first  proved,  in  a  slightly  more 
general  form,  in  [  2l.  The  proof  is  by  induction  on  n. 
If  n  =  1  then  the  lemma  is  obvious. 

We  assume  that  there   is  a  su  called  s  of  <x.,y.>, 
1  <^  i  <^  n+1,  and  a  mgsu  aof<x.,y.>,  l<^i<^n.  Let 

^  =  ^^n+l'^n+l"- 

Since  s  is  an  su  of  the  pairs  up  to  n,  there  is  a  B 

such  that  s  =  ab.   Now  Ls  =  Lab  is  unified,  so  b  unifies  La, 
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since  Lo  is  unifiable  there  is  a  mgu  x  of  La.      We  assert 
that  ax  is  the  mgsu  of  the  pairs  up  to  n+1 . 

(1)  ax  is  an  su  for  l^i^n,   <x^,y^>a  is   unified 
so  <x.,y.>ox    is  also.   Lax  is  also  unified  by 
the  definition  of  x . 

(2)  ax  is  an  mgsu.   Suppose  y  is  an  su  of  the  pairs  up 
to  n+1;  then  y    is  an  su  of  the  pairs  up  to  n.  So 

Y  =  au.   Since  Ly  =  Lau,  u  unifies  La,  thus  u  =  xc. 
Now  y   =  au  =   o(xc)  =  (ox)c. 

(3)  Uniqueness.   Assume  x,a    are  two  mgsu;  then  there 
exists  d ,  e  such  that 

X  =  ad  ,    a  =  xe 

if  P  is  any  well  formed  formula   then  Px  and  Pa  are 
alphabetic  variants,  so  the  unifier  is  unique  to 
within  alphabetic  variants. 

Now  we  may  prove 

Theorem  1    Given   a   refutation   tree 

T   for  a  set   S  of  clauses,      a   merge-free  and  factor- 
free  resolution  refutation  of  S  can  be  obtained  from  T  by 
carrying  out  the  resolutions  corresponding  to  the  branches 
of  T  in  any  order. 

Proof:   The  refutation  tree  T  contains  a  set  of  clauses 
each  of  which  is  in  S,  and  determines  the  existence  of  an 
mgsu  of  the  set  of  pairs  of  literals  associated  with  the 
branches  of  T.   Consider  a  particular  order  of  the  branches 
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of  T,   B, ,B„,...,B  .   We  can  perform  the  resolutions  on  the 
literals  associated  with  the  branches  in  this  order.   Since 
an  mgsu  of  the  pairs  of  literals  exists,  each  of  these  resolu- 
tions can  be  performed.  n 

Now  we  will  characterize  what  class  of  sets  of  clauses 
have   a  refutation  tree. 

Theorem  2     The   following   statements   about 
a  set  S  of  clauses  are  equivalent: 

(i)    S  has  an  input  proof,  using  factoring  and  resolution. 

(ii)   S  has  a  unit  proof,  using  factoring  and  resolution. 

(iii)  S  plus  the  factors  of  S   have  a  refutation  tree. 

Proof;   (i)  and  (ii)  were  proved  equivalent  by  Chang  [  4 ] , 
so  we  will  just  prove  the  equivalence  of  (i)  and  (iii)  . 
First,  suppose  S  has  an  input  proof  I,  using  the  clauses 
Iq  ,  I,  ,  I-,  .  .  .  ,  I   in  that  order.   Consider  the  refutation 
graph  G  of  S  corresponding  to  I.   Process  G  as  follows; 

1.  Set  i  =  n. 

2.  If  two  literals  of  I.  are  associated  with  the  same 

1 

literal  in  another  clauses,  replace  I.  in  G  by  the  factor  of 
I.  which  unifies  these  literals,  making  the  corresponding 
modification  in  the  branches  of  G  and  go  to  2. 

3.  If  a  literal  L  in  I .  is  associated  with  two  other 

1 

literals   L,  and  L„,  do  the  following;   Disconnect  the  branch 
associated  with  L   and  L, ;  duplicate  the  graph  containing  I. 
neglecting  all  branches  between  I.  and  I.  for  j  <  i;  reconnect 
this  graph  by   adding  a  branch  associated  with  L,  and  the  copy 
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of  L;  and  go  to  3 . 

4.   Set  i  =  i-1;   if  i  is  nonzero,   go  to  2. 

Each  of  the  modifications  in  steps  2  and  3  does  not 
destroy  the  fact  that  G  is  a  refutation  graph.   Furthermore, 
this  algorithm  changes  G  to  a  tree,  since  in  step  3  the 
graph  containing  I.  is  a  tree.   This  can  be   seen  by  noting 
that  just  before  step  4   each  copy  of  I.  is  connected  to 
exactly  one  I.  for  some  j  <  i. 

Now  suppose  S  plus  its  factors  has  a  refutation  tree  T. 
We  can  carry  out  the  resolutions  specified  by  the  tree  in 
any  order,  so  we  can  construct  an  input  proof  by  selecting 
an  arbitrary  clause  of  T  first,  and  then  performing  the 
resolutions  of  T  with  input  clauses  (or  factors  of  input 
clauses)  in  such  a  way  that  the  literal  resolved  on  is  a 
member  of  the  previous  resolvent.  D 

Corollary  1    If  S  has  an  input  (unit)  refutation 
using  factoring   and  resolution,  then  S  plus  its  factors 
has  an  input  (unit)  resolution  refutation  without  factoring. 

Corollary  2    If  S  has  an  input  refutation  using  resolution 
without  factoring   then  S  has  a  refutation  tree. 

2. 3   Horn  Clauses 

Theorem  2  tells  us  when  a   refutation  tree  exists,  but 
in  a  rather  useless  way.   We  first  have  to  know  if  a  set  of 
clauses  has  a  refutation  of  a  certain  form,  so  we  have  to  give 
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a  proof  before  we  know  if  there  is  a  refutation  tree. 

We  will  now  give  syntactic  conditions  which  will  be  sufficient 

to  guarantee  the  existence  of  a  refutation  tree. 

If  we  have  a  clause  in  disjunctive  normal  form 

which  has  no  more  than  one  positive  literal,   we  may  write 
it  as  an  implication. 

L^  A  L2  -  L3 
Each  such  implication  is  a  conjunction  of  zero  or  more  atoms, 
followed  by  an  implication  sign,  followed  by  either  zero  or 
one  atom.   A  clause  in  this  form  is  called  a  Horn  clause. 
A  set  representing  a  conjunction  of  Horn  clauses  is  called  a 
Horn  set.   Henschen  and  Wos  [19]  showed: 

If  S  is  an  unsatisfiable  Horn  set,  then  S  has  an  input 
refutation  without  factoring. 

Theorem  3 .    If  S  is  an  unsatisfiable  Horn  set,  S  has  a 
refutation  tree. 

Proof;        From    the    second  corollary  to  Theorem  2. 
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Given  a  set  of  clauses  in  Horn  form,  a  possible 
algorithm  for  finding  refutation  trees  consists  of: 

(1)  Form  a  pool  of  subtrees  initially  containing  only 
negative  clauses 

(2)  Select  som.e  subtree   in  the  pool,  call  it  T; 

(3)  Pemove  T  from  the  pool. 

(4)  Pick  some  literal  in  T  which  has  no  associated  branch. 

(5)  Compute  all  possible  subtrees  which  link  the  selected 
literal  of  T  to  positive  literals  of  input  clauses. 

(6)  If  any  of  these  trees  has  no  literal  without  an  associated 
branch,  otherwise  add  each  of  these  trees  to  the  pool 

and  go  to  step  (2). 

It  is  easy  to  see  that  this  algorithm  is  exponential 
in  the  number  of  branches  of  the  final  tree.   In  the  next 
section  we  will  show  how  to  cut  down  the  number  of  branches 
and  thus  reduce  the  complexity  of  this  algorithm. 
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2.4    The  Revised  Unification  Problem 


In  Figure  3,  we  draw  the  outline  of  the  x*y  =  (-x) • (-y) 
refutation  tree. 


Subtree  2 


Figure  3.   Outline  of  the  Refutation  Tree  for  x-y  =  (-x) • (-y) . 
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Here,  we  have  selected  several  subtrees.   If  we  regard 
the  subtrees  as  units  then  the  resultant  tree  has   fewer 
branches.   We  may  define  a  generalization  of  resolution  based 
on  this  observation.   In  what  follows,  we  will  always  assume 
that  the  variables  in  two  clauses  are  distinct. 

Consider  two  clauses  G  and  H  of  S  of  the  form 
A  u  {L(x^,.  .  .,Xj^)  }   and   B  u  {Miy^,  .  .  .  ,y^)  }  .      Suppose  clause  C 
of  the  form  D  u  {L  (w^,  .  .  .  ,Wj^)  }  u  {M{z^  ,  .  .  .  ,  z^)  }   can  be 
deduced  from  U  c  s,   and  there  is  a  most  general  simultaneous 
unifier  A  of  the  pairs  <x.,w^>,   i  =  1,...,2.,   and   <y.,z.>, 
j  =  l,...,m.   Then  the  clause 

(AX-L(x^,...x^)X)U(BX-M(y3^,...yJX)U(DX-L(x^,...Xj^)X-M(y^,...yj^)X) 

is  a  binary  U-generalized  resolvent  of  G  and  H.   We  will  refer 
to  clause  C  as  the  unifying  clause,  and  to  the  L  and  M  literals 
of  C  as  the  linking  literals. 

F\irthermore,  if  clause  C  of  the  form  {L  (w,  ,  .  .  .  ,Wj^)  }  can 
be  deduced  from  U  £  s,   and  there  is  an  mgsu  X  of  the  pairs 
<x.,w.>,  i  =  l,...,Jl,   then  the  clause 

AX  -  {L(x,  ,  .  . . ,x„ ) X} 

is  a  unary  U-generalized  resolvent  of  G. 

We  will  usually  shorten  U-generalized  resolvent  to 
U-g-resolvent ,  and  drop  the  words  "unary"   or  "binary"  when 
no  distinction  is  being  made. 
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We  envisage  U-g-resolution  being  used  in  the  following 
way.   Given  a  set  S  of  clauses,  select  a  subset  U   not 
including  the  theorem  to  be  proved.   Attempt  to  generate 
the  null  clause  by  repeatedly  adding  to  S  the  U-g-resolvents 
of  clauses  in  S-U.   Thus  the  clauses  in  U  are  used  essentially 
as  rules  of  inference  rather  than  clauses  from  which  infer- 
ences can  be  made.   Note  that  the  proofs  generated  in  this  way 
should  have  fewer  steps  than  standard  resolution   proofs, 
and  these  steps  should  be  larger.  The  search  strategy  will 
involve  the  selection  of  (one  or)  two  clauses  from  S-U,  and 
the  selection  of  (one  or)  two  literals  belonging  to  them 
which  can  be  "linked"  by  a  clause  inferred  from  U. 

The  question  then  arises  of  the  completeness  and 
soundness  of  generalized  resolution. 

Theorem  4    U-g-resolution  is  sound. 
Proof:   Trivial. 

Theorem  5     If   S   is   a   set   of   clauses 
with  a  refutation  tree,  then  for  any  satis fiable  U  c  s 
S-U  has  a  U-g-resolution  refutation. 

Proof:   Consider  a  refutation  tree  T  of  S.   We  will  show  that 
the  order  of  performing  resolutions  in  T,  which  can  be  chosen 
arbitrarily,  can  be  chosen  so  that  it  consists  of  a  set  of 
subsequences,  each  of  which  corresponds  to  a  U-g-resolution 
step. 
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Either  there  is  no  clause  in  U  n  T,  in  which  case  S-U 
has  a  standard  resolution  refutation,  or  we  can  find  a  sub- 
graph t  of  T  satisfying: 

(a)  t  has  at  least  one  node  in  U 

(b)  if  a  clause  K  is  in  U  n  t,   all  clauses 
connected   in  T  to  K  are  also  in  t 

(c)  t  is  connected 

(d)  all  nodes  of  t  not  in  U  are  connected  in  t 
to  only  one  other  node  of  t.      • 

Thus  t  is  a  free  tree  with  internal  nodes  in  U. 

Now  since  U  is  satisfiable,  there  must  be  at  least  one 
node  of  t  in  S-U.   If  there  is  exactly  one,  say  K,  then  it 
must  be  possible  to  carry  out  all  the  resolutsion  in  t  -  {k}, 
leaving  a  single  literal  to  resolve  with  a  literal  in  K;  in 
this  case  the  result  of  carrying  out  all  resolutions  in  t  is 
a  unary  U-g-resolvent  of  K.   Otherwise  there  are  at  least 
two  nodes  of  t  in  S-U,  say  K,  and  K- •   K,  and  K-  can  be 
connected  by  a  path  P  in  t,  and  carrying  out  the  resolutions 
along  P  is  equivalent  to  forming  a  U-g-resolvent  of  K,   and 
K- •   Note  that  in  carrying  out  the  U-g-resolution,  more 
literals  than  K,  and  K„  may  be  removed  from  T.   However, 
this  merely  decomposes  T  into  disconnected  subtrees,  one 
of  which  must  be  a  refutation. 

Thus  in  each  case  we  can  reduce  T  to  T',  a  tree  with 
strictly  less  branches  than  T,  by  carrying  out  resolutions 
corresponding  to  the  formation  of  some  U-g-resolvent  R, 
with  T'  being  a  refutation  tree  for  S  u  {R}. 
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Thus  given  any  refutation  tree  T  of  S  we  can  reduce 
it  by  sets  of  resolutions  each  corresponding  to  U-g-resolu- 
tion  steps  until  the  refutation  tree  contains  no  more  clauses 
of  U.   This  reduced  tree  can  be  refuted  by  standard  resolution 
steps  not  involving  clauses  of  U,  thus  completing  a  U-g- 
resolution  refutation  of  S-U.  □ 

Corollary.   Since  in  the  proof  above  we  do  not  require  that 
identical  literals  be  merged,  the  theorem  remains  true  if 
we  do  only  partial  merging.   In  particular,  if  no  two  literals 
are  ever  identified. 

In  the  case  of  binary  U-g-resolution,  we  may  view  the 
generalization  as  a  modification  of  unification. 
Before:   we  had  to  find  a  substitution  a  which  would  make 

two  formulas  identical . 
Now:     We  need  to  find  a  substitution  0  and  a  subtree  T 
which  make  the  formulas  equivalent. 

One  way  in  which  we  may  establish  equivalence  is  to 
use  a  second,  inner,  theorem  prover.   Such  an  inner  theorem 
prover  provides  three  advantages: 

(1)  It  needs  to  do  simpler  deductions 

(2)  The  pair  of  literals  selected  by  the  outer  theorem 
prover  acts  as  a  guide  or  higher  level  plan 

(3)  The  outer  theorem  prover  reasons  in  larger  steps. 

At  best,  we  trade  one  proof  of  n  steps  for  two  each  of 
about  n/2  steps.   Since  the  work  is  exponential  in  the  number 
of  steps,  if  we  happen  to  be  in  the  best  case  we  get  a 
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significant  advantage.   However,  in  the  worst  case,  much 
computation  will  be  done  (repeatedly  generating  the  same 
useless  results)   by  the  inner  theorem  prover,  while  the 
proof  remains  n  steps  long.   In  specific  cases,  it  may  be 
possible  to  elim.inate  large  classes  of  potential  unifying 
clauses.   In  the  rest  of  this  chapter,  we  will  consider  the 
important  case  in  which  U  contains  the  axioms  of  equality. 

2.5    Equality 

Many  schemes  have  been  proposed  to  build  a  notion  of 
equality  into  a  theorem  proving  system.   Robinson  and  Wos  [31] 
noted  that  using  equality  as  a  binary  predicate  produced 
systems  which  were  very   slow.   Experimentally,  they  found 
that  introducing  a  three  place  predicate  P(x,y,z)  ♦♦  x-y  =  z 
improved  the  performance  of  a  resolution  theorem  prover  by 
about  3  orders  of  magnitude . 

Silbert  [39]  advanced  the  first  special  equality  system. 

He  had  four  rules  of  inference. 

Rule  1      From  A  u  P(x, , . . . ,x  )  and  B  U  np(y, , . . . ,y  ) 
1      n  -'I     ■' n 

where  P  is  not  equality,     infer 
AUBUx^?^y^U...Ux   /y   . 

[generalized  resolution] 
Rule  2      From  AUx  =  y,  BUut^v 

where  A,  B  only  contain  equalities  or  inequalities 
y  occurs  only  at  the  top  level  in  A,  a  unifies  y 
and  V,   infer  (A  u  B  u  u  ?^  x)a 

[equality  replacem.ent] 
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Rule  3      From  A  '■-'  F(x.  ,...,x  )  =  y  where  A  only  contains 

equalities  or  inequalities,     infer 

AUz,/^x,  U    ...Uz   T^x   UF(z,...,z^)=y 
11  n    n  n 

[equality  substitution] 
Rule  4      Delete  literals  of  the  form  x  =  x. 

The  problem  in  Gilbert's  plan  however  where  to  apply 
rules  2  and  3.   Using  them  everywhere  allows  all  possible 
substitutions.       His   technique  was  never  implemented. 

The  next  proposed  equality  technique  was  paramodulation 
Suggested  by  Robinson   and  Wos  in  1969  [31],  it  became  the 
most  often  used  equality  method.   In  summary,  it  consists 
of  the  following. 

Given  two  clauses 

C 

x=y  u  B 
where 

(1)  t  is  a  term  in  C 

(2)  o  is  the  mgu  of  t  and  x  , 
infer  the  clause 

Cq  =  (C  u  B)a  ;  . 

Suppose  that  there  are  n  occurrences  of  t,  a  in  C_;  then 
we  conclude  the   n  clauses   C,  through  C   where 
C.   is  the  result  of  replacing  the  ith  occurrence  of  ta  in 
C-  with  ya. 

Robinson  and  Wos  showed  that  "a  ring  is  commutative  if 

3 
Vx,  X  =  e  "   could  be  proved  in  49  steps  of  paramodulation  or 
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136  resolutions.   The  proof  of  x'y  =  (-x) • (-y)  in  the  formula- 
tion above  takes  11  paramodulation  steps  or  13  resolutions. 
Much  work  has  been  done  with  paramodulation,  perhaps  because 
it  is  easy  to  work  with  mathematically.  Implementations  have 
not  shown  clearly  that  it  is  efficient. 

E-resolution,  due  to  Anderson  [  1  ] ,  uses  both  paramodu- 
lation and  resolution.   Two  literals  are  selected;  then  using 
the  unit  equalities,   all  possible  paramodulations  of  each 
literal  are  performed.  Then  all  pairwise  ways  of  unifying  the 
literals  are  computed.   An  incomplete  version  was  implemented  [27] 

Dixon  [  9  ]  suggested  Z-resolution.  Basically,  it  consists 
of  the  following:  to  resolve  two  clauses  L^  v  A  and   -L_  v  B, 
first  compute  the  sets  L-j^-  VAR  (of  equality  variants  of  L^ ) 
and  L2-VAR  (the  set  of  equality  variants  of  L-) .  Next  compute 
a  set  U  of  unifiers.  Each  a  e  U  will  unify  a  member  of 
L,-VAR  with  some  member  of  L^-VAR.  Finally,  the  Z-resolvents 
are  computed  by 

(A  u  B)o  -  {L^o ,    -L20}   for   Va  6  u  ; . 

The  equality  variants  of  a  literal  H   are  obtained  as  the  resolv- 
ents  of  £  and  clauses  in  a  variant  set  V.   V  contains  two  literal 
clauses,  where  no  variable  occurs  more  than  once  in  a  single 
literal.   Resolutions  of  elements  of  V  produce  tautologies. 
Z-resolution  is  a  very  powerful  scheme  and  is  perhaps  the  best 
of  the  equality  methods.   A  particularly  attractive 
alternative  to  Z-resolution  is  the  following  variation 
of  our  U-g-resolution  technique. 
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2.6   Equality-Generalized  Resolution 

Consider  two  clauses  G  and  H  of  the  form  A  u  {l{x^,  .  . .  ,-x^)} 
and  B  u  {L(y- , . . . ,y„ ) } .   Suppose  clauses  D^u   {w^  =  z^}  can 
be  deduced  from  the  set  U  of  clauses  such  that  either  1)  there  is  a 
mgsu  X  of  the  pairs  <x.,w.>  and  <y./Z.>.  Or,  2)  if  in  addition 
L  is  the  equality  predicate,  there  is  an  msgu  X  of  the  pairs 
<x,  ,w,>,  <z,,y2>,  <X2/W2>f  '^^2'^1^'   Then  the  clause 

(GX-L{Xj^,  .  .  .x^)  X)u(BX-L(Xj^,  .  .  .x^)  X)U(U(D^X-L(x^,  .  .  .x^)  X-L(y^.  .  .y)  X)  ) 

is  a  U-equality-generalized  resolvent  of  G  and  H.   In  what 
follows  we  will  shorten  U-equality-generalized  resolvent  to 
U-e-g- resolvent . 

Note  that  for  every  U-e-g-resolvent  there  is  a  corres- 
ponding U-g-resolvent,  but  the  reverse  is  not  true. 

In  what  follows  we  will  refer  frequently  to  the  (infinite) 
set  E  containing  the  following  equality  axioms 

{x  7^  y,  y  =  x} 
{x  7^  y,  y  ?^  z,  X  =  z} 
and  all  axioms  of  the  form 

{x  7^  y,  z   fi   f{ ,x,...),  z  =  f( ,y, )} 

{x  fi   y,  p( ,x, ),  p( ,y,...)} 

for  all  function  letters  f  and  predicate  letters  p. 
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In  practice  we  will  always  be  concerned  with  the  (finite) 
subset  of  E  containing  only  function  and  predicate  letters 
used  in  other  clauses  of  a  set  S-E. 

Theorem  6   If   S   is   a   set   of   clauses, 

including  {x  =  x},   with  a  refutation  tree,  then  there 

exists  a  linear  U-e-g-resolvent  refutation  of  S-U  for  any 

U  satisfying 

(i)    E  n  (s  -  U)  =  0 

(ii)   U-E  contains  only  positive  unit  equality  clauses 

but  not  {x=x}  . 

Proof:    The  proof  of  this  theorem  is  similar  to  that  of 
Theorem  5.   That  is,  any  refutation  tree  T  with  at  least  one 
node  in  U  has  a  subgraph  t  which  is  a  free  tree  with  internal 
nodes  in  U. 

We  can  show  that  there  is  at  least  one  pair  of  (terminal) 
nodes  in  t  n  (s  -  u)   which  have  a  iJ-e-g-resolvent  which  can 
be  obtained  by  carrying  out  only  resolutions  specified  by  t. 
For  any  internal  node  of  t  is  in  E,  so  is  of  one  of  the 
following  forms: 

{x  ?f  y,  y  =  x} 

(x  7^  y,  y  7^  z,  x  =  z} 

{z  ^   f(...,x,...),  X  ^  Yi    z  =  f(...,y,...)} 

{p( — ,x,...),  X  ^  Y,    p( — ,y,...)} 

In  each  case  the  first  literal  has  the  same  form  as  the  last 
literal  except  for  a  substitution  or,  in  the  case  of  the 
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syimnetry  axiom,  reversal  of  the  arguments.   This  means  that 
starting  with  any  negative  literal  in  t,  we  can  find  a 
sequence  of  resolutions  in  which  all  the  resolved  literals 
are  identical  except  for  substitutions  (or  argument  reversals, 
if  an  equality  literal) .  , 

Now  we  can  choose  this  initial  negative  literal 
L(x,,...,x»)    to  be  in  S  -  U.   There  must  be  at  least  one  such 
literal,  since  not  all  positive   literals  in  t  n  u  can  be 
linked  in  t  to  negative  literals  in  t  n  u   (this  would  give 
a  path  which  would  not  end  in  a  terminal  node,  contradicting 
the  condition  that  t  is  a  tree) .   The  substitution  path  start- 
ing with  L(Xw-..,x.),  where  L  is  not  equality,  must  terminate 
in  another  clause  in  S  -  U  containing  a  linking  literal  of 
the  form  L (y, , . . . ,y » ) .   Furthermore,  the  internal  nodes  on 
this  path   specify  substitutions  or  reversals  which  indicate 
how  L(x  ,  ...,Xj,)  can  be  transformed  into  L  (y,  ,  .  .  .  ,y^)  .  These 
internal  nodes,  together  with  some  applications  of  the  transiti- 
vity axiom  if  necessary,  permit  us  to  deduce  from  E  clauses 
of  the  form 

D.  u  {x.  =  y.  } 

where  the  D.  are  sets  of  equality  literals.   Thus  the  applica- 
tion of  the  resolutions  along  such  a  path  corresponds  to  an 
E-e-g-resolution  step. 

If,  on  the  other  hand,  L  is  equality,  the  substitution/ 
reversal  sequence  of  internal  nodes  starting  with  x^  =  x„  may 
end  either  in  a  node  {y,  =  Yo-^  in  S  -  U,  or  in  a  positive 
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equality  unit  {y,  ~  Yn^      in  U.   In  both  cases  the  set  of 
internal  nodes  must  enable  us  to  define  from  U  clauses  of 
the  form 

^1  *-•  ^w^  =  z^} 

with  either  <x,,v^>,    <yij,'Wy',    <y  ,  z^>,  '^Yj'^i^   simultaneously 
unifiable,  or  <x  ,w,>,  <z    ,y^>,    <-x.^,^n  > ,    <z  ,y^>  simultaneously 
unifiable.   In  the  first  case  this  sequence  of  resolutions  is 
equivalent  to  a  U-e-g-resolvent  with  linking  literals  x^  =  x_ 
and  y^  =  y. .   In   the  second  case  we  can  replace  y^  =  y_  in  t 
with 

{Yl  ^  Y2'    Y2    ^   Y2'    ^1  =  ^2^ 

{yi  =  y2> 

the  last  literal  being  an  instance  of  x  =  x,  which  is  in  S-U. 
Thus  the  second  case  can  be  reduced  to  the  first,  so  also 
corresponds  to  an  U-e-g-resolution  step.   Thus  given  any 
refutation  tree  T  of  S,  we  can  reduce  that  tree  by  applying 
sets  of  resolutions  corresponding  to  U-e-g-resolution  steps 
until  the  tree  contains  no  more  clauses  of  U.  This  reduced 
tree  can  be  refuted  by  standard  resolution  steps  not  involving 
clauses  of  U,  thus  giving  an  U-e-g-resolution  refutation.   D 

Corollary.   As  in  Theorem  5,   Theorem  6  remains  true  whether 
merging  of  literals  is  done  or  not. 
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In  effect.  Theorem  6  says  that  if  in  U-g-resolution  U 
is  constrained   to  be  E,  then  we  need  only  consider  unifying 
clauses  which  have  linking  literals  with  the  same  predicate 
letter,  and  further,  such  unifying  clauses  have  as  their 
essential  components  other  clauses  which  establish  the  equality 
of  the  arguments  of  the  linking  literals. 

Theorem  6  thus  gives  us  a  generalization  of  the  standard 
unification  procedure.   The  standard  procedure  says  that 
literals  can  be  unified  only  if  there  are  substitutions  for 
variables  which  make  the  literals  identical;  the  generalized 
procedure  is  to  permit  substitutions  which  enable  the 
arguments  of  the  literals  to  be  proven  equal.   Theorem  6 
shows  that  in  the  case  of  sets  of  clauses  with  a  tree  refuta- 
tion the  use  of  the  equality  axioms  can  be  restricted  to  the 
problem  of  proving  the  arguments  equal,  and  need  not  appear 
as  clauses  to  be  resolved  upon. 

Theorem  6  cannot  be  generalized  to  arbitrary  sets  of 
clauses;  the   E-unsatisfiable  set  of  clauses: 

{P(a)  ,  P(b)} 

{P(a),  P(b)} 

a  =  b 

cannot  be  proved  unsatisf iable  by  the  E-e-g-resolution  procedure 
since  the  necessary  factoring  cannot  be  done.   We  conjecture, 
however,  that  if  factoring  and  merging  is  generalized  to  use 
equivalence  in  an  analogous  fashion,  then  many  of  the  completeness 
results  of  standard  resolution  procedures  can  be  carried  over. 
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Returning  to  the  example,  no  proof  of  x-y  =  -x--y  in  the 
formulation  given  in  Section  2.1,  has  been  reported  in  the  liter- 
ature, though  Wos  et  al .  [31]  proved  it  in  a  hybrid  formulation 

(using  a  three-argument  product  predicate  and  also  the  equality 
predicate).  Our  formulation,  being  restricted  to  Horn  clauses, 
must  have  an  input  proof  starting  with  the  negated  theorem.  The 
following  is  a  standard  input  resolution  proof  of  minimiun  depth 

(13  resolvents):  Numbers  to  the  right  correspond  to  Section  2.1. 

(Rl)  a.b  +  X  7^  -a.-b  +  x  from  (15)  and  (7) 

(R2)  a-b  +  X  7^  y,   y  ?^  -a-  -b  +  x     (Rl)  and  (8) 

(R3)  (a+b)-b  ^   -a-  -b  +  x-b  (R2)  and  (6) 

(R4)  (a+b) -b  ?<  y,   y  ?^  -a-  -b  +  x-b    (R3)  and  (8) 

(R5)  w  7^  a  +  x,  w-b  ?^  y,  y  7^  -a--b+x-b(R4)  and  (11) 

(R6)  0-b  7^  y,  y?^  -a--b  +  -a-b  (R5)  and  (3) 

(R7)  0  7^  -a-  -b  +  -a-b  (R6)  and  (2) 

(R8)  0  7^  X,  X  f^  -a-  -b  +  -a-b  (R7)  and  (8) 

(R9)  x-O  f   -a-  -b  +  -a-b  (R8)  and  (1) 

(RIO)  w  =  0,  x-w  ^   -a--b  +  -a-b  (R9)  and  (12) 

(Rll)  0  ff  w,  x-w  i^   -a--b  +  -a-b  (RIO)  and  (10) 

(R12)  x.(-y+y)  i-   -a--b  +  -a-b  (Rll)  and  (4) 

(R13)  D  (R12)  and  (5) 

The  refutation  tree  corresponding  to  this  proof  is  given  in 
Figure  2.  Note  that  axioms  (9),  (13),  and  (14)  are  not  used, 
but  that  (10)  would  have  been  necessary  in  several  other 
cases  had  other  axioms  (such  as  (1),  (2),  (5),  and  (6)) 
been  specified  the  other  way  around. 
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A  paramodulation     proof  would  permit  the  elimination 
of  the  steps  involving  the  substitution  axioms  (11)  and  (12) . 
That  is,  (R6)  could  be  obtained  directly  from  (R4) ,  and  (Rll) 
could  be  obtained  directly  from  (R9) .   This   gives   an 
11-step  proof. 

A  proof  using  E-e-g-resolution  can  be  much  shorter, 
since  all  resolvents  involving  clauses  in  E  are  omitted. 
That  is,  only  resolvents  (Rl)  ,  (R3)  ,  (R6)  ,  (R7)  ,  (R9)  ,  (R12) 
and  (R13)  appear  explicitly,  giving  a  7-step  proof.   This 
proof   arises     in  a  number  of  ways:   for  example,  an 
E-e-g-resolvent  clause  could  be  found  from  (Rl)  and  (6), 
using  one  instances  of  (8) ;  or  (Rl)  and  (2) ,  using  two 
instances  of  (8)  and  one  of  (11) ;  or  (Rl)  and  (1)  using  three 
instances  of  (8) ;  or  (Rl)  and  (5)  using  three  instances  of  (8) 
and  one  of  (12) .   In  practice  it  would  not  be   likely  that  the 
longer  unifying  clauses  would  be  found;  it  would  be  more 
likely  that  (Rl)  would  resolve  with  (5)  using  a  simple  substi- 
tuion  for  the  right-hand  sides,  and  an  instance  of  (8) 

a-b  +  -a-z'  ^  a.,    z   ^   x'-(y'+z'),  a-b  +  -a-z'  =  x'-(y'+z') 

for  the  left-hand  sides. 

The  S-e-g-resolution  proof  is  even  shorter  than  this, 
consisting  of  only  2  steps,  (Rl)  and  (R12) .  That  is,  (Rl) 

a'b  +  x  7^  -a-  -b  +  x 

can  be  resolved  directly  with  (5) 

x''(y'+z')  =  x'*y'  +  x''z' 
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The  right-hand  sides  are  unifiable  immediately,  using  the 
substitutions  x'  ■<-  -a,   y'  ■<-  -b,   x  ■«-  -a-z'.   Generalized 
unification  of  the  left-hand  sides  requires  that  a  substi- 
tution be  found  such  that  (a-b  +  -a-z')X  can  be  proved 
equal  to  (-a- (-b+z ' ) ) X .   This  can  be  done,  following  the 
refutation  tree  precisely,  as  follows: 


a-b  +  -a-b  =  (a+  -a) 'b 

a-b  +  -a-b  =  0-b 

a-b  +  -a-b  =  0 

a-b  +  -a-b  =  -a-0 

a-b  +  -a-b  =  -a- (-b+b) 


from  ( 6 ) 

from  (3)  and  (11) 

from  (2)  and  (8) 

from  (1)  and  (8) 

from  (4),  (10)  and  (12) 


With  the  substitution  z'  ■<-  b,  this  gives  the  null  clause 
as  the  S-e-g-resolvent  of  (Rl)  and  (5) . 


2.7   Coercion 

To  turn  Theorem  6  into  a   useful   procedure,  we  need 

a  strategy  for  finding  the  proofs  of  equality. 

Suppose  we  have  two  terms   t,  and  t-  which  we  would 

like  to  prove  equal.  Also  suppose  U  contains  a  clause 

a  =  b  -^  D  ,   where  D  is  a  conjunction. 

We  may  break  up  the   proof  of  equality  into  two  subproblems. 
First  to  show  that   t,  =  a   and  second,  to  show  that  b=t2.  We 
must  decide  which  clauses  of  U  to  use  on  a  given  problem. 
We  choose  to  use  the  following   criteria. 

Before  starting  to  prove  that  t,  =  a  we  impose  the  restric- 


tion that  either 
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(1)  t,   or  a  is  a  variable   or 

(2)  t,   and  a  are  the  same  constant  or 

(3)  t,   and  a  both  start  with  the  same  function  letter. 
We  then  use  the  same  criteria  on  t-  and  b. 

Finally  we  place  transitivity  in  both  S  and  U. 
The  difference  between  coercion  and  U-e-g  resolution  may  be 
seen  in  the  following  example. 

S  -  U  U 


P(a) 
-P(b) 

X  =  X 


a  =  c 

b  =  c 

E 


In  U-e-g  resolution  we  unify  P(a)  and  -P{b)  in  the  follow- 
ing tree. 

P(a) 

/ 

{-P(a),  b  ?^  a,  P(b)} 


{b=a,  bj^c,  Cf^a} 


b=c 


{c=a,  a?^c} 


a=c 


-P(b) 


Unification  of  P(a)  and  -P(b)  produces  the  subproblem  of 
proving  b  =  a,  which  can  be  done  within  U.  Thus  U-e-g-resolution 
gives  a  one-step  proof. 
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In  coercion  the  transitivity  axiom  is  in  S  rather  than  in  U, 
so  a  coercion  proof  takes  four  steps.  From  an  attempt  to  unify 
P(a)  and  -P(b),  again  we  get  the  subproblem  b=a.  Now  however 
we  cannot  apply  transitivity  inside  unification,  so  the  resolvent  is 

{b  ?^  a} 
In  the  second  step  we  resolve  b  7^  a  with  transitivity  to  get 

{b  ?^  z,  z  7^  a}  > 

Two  unary  resolutions  remove  these  literals.  As  this  example 
shows,  coercion  consists  in  stopping  the  inner  theorem  prover 
just  before  applying  transitivity.  Transitivity  is  then  applied 
by  the  outer  theorem  prover. 

Finally  unary  resolutions  complete  the  proof. 

The  coercion  algorithm  we  use  is  defined  as  follows: 
An  ordered  pair  <a,A>,  where  0  is  a  set  of  substitutions  and  A 
is  a  set  of  literals,  is  called  a  solution  of  the  coercion- 
unification  of  L{x^  , . . . ,x   )    and  -L(y,,...,y  )  if  each  of   the 
following  conditions  holds:  (1)  a  subtree  t  may  be  constructed 
insode  of  unification;  (2)  the  literals  -L (x. , . . . ,x  )o  and 

L(y-i»-''/y  )o  are  in  t  and  have  no  associated  branch; 
1      n 

(3)  A  is  the  set  made  up  of  all  the  other  literals  of  t 

without  associated  branches.    The  depth  of  a  solution   is  the 

number  of  times  that  transitivity  occurs  in  the  associated  subtree. 

The  following  algorithms  will  generate  all  solutions  of 

the  coercion  unification  of  L{x, ,...,x  )  and  L(y, ,...,y  )   of 

1'    '  n        -'I     ■'n 

depth  d  or  less. 

To  coercion-unify  L(x^,...,x  )  and  Hy^  , . .  .  ,y   )    to  depth  d. 
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(A)  Solve  the  subproblein 

x-=y, ,  X2=y2 »  • • • /  X  =y   to  depth  d  as  follows: 

(1)  Let  S  =  set  of  solutions  of  the  subproblems  x.  =  y. 
to  depth  d   as  shown  in  (B)  below 

(2)  If  L  is  equality  add  to  S  the  solutions  of  x  =y2/  x=y    , 
as  shown  in  (B)  below.  u  " 

(3)  Return  S.  -  -        ,.,.-. 

(B)  To  solve  a  subproblem 

^r^l'  ^2"y2 ^n=yn 

(1)  let   S,  =  set  of  solutions  of  x.=y,  to  depth  d  as  found  by 

(C)  below 

(2)  let  S.  =  set  of  solutions  of  (x.=y.)a  as  found  by  (C) 
below  where  <0 ,A>  g  S._,   for  i=2,...,n. 

(3)  Return  S  . 

(C)  To  solve  a  subproblem  .      - 
x.=y.   to  depth  d. 


Lon 


(1)  let  S  =  {<!,  x.=y.>}   where   I  is  the  identity  substitutic 

(2)  if  X.  and  y.   are  not  both  functions,  let  a  =   most  general 
unifier  of  x.  and  y.  computed  in  the  standard  way; 

if  o  is  defined  add  <o,0>   to  S. 

(3)  If  d  =  0,  go  to  (6)  . 

(4)  For  each  unit  equality  problem  a  =  B   form  the  two  subproblems 
2<j^=a,  y-  =  3  with  depth  d-1 ;   x.=6,  y.=a  with  depth  d-1. 

(5)  If  the  restrictions  to  Section  2.7  are  met,  add  all  solutions 
to  these  subproblems,  found  by  (B)  above  to  S. 
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(6)  If  X.  and  y.  are  functions  starting  with  the  same  symbol 
add  to  S  all  solutions  of  coercion-unifying  x^  and  y^  to 
depth  d. 

(7)  Return  S. 

For  the  unary  case ,  we  have :  j 

To  coercion-unify  x  ^  y 
apply  algorithm  (C)  above. 

Finally,  we  prove  below  that  we  get  the  same  deductions 
from  either  coercion  of  U-e-g-resolution.   The  advantage  of 
coercion  is  that  the  outer  theorem  prover  gets  to  see  inter- 
mediate results  and  on  that  basis  possibly  suspend  the  compu- 
tation of  a  unifier. 

Theorem  7   If  S   is  a  set  of  clauses,  including 

{x?^y,  y?^z,  x  =  z},  with  a  refutation  tree,  then  there 

exists  a  linear  coercion  refutation  of  S-U  for  any  U  satisfying 

(i)         E  u  (S  -  U)  =  {xf^Y   V  y?^z  V  x=z} 

(ii)        U-E  contains  only  positive  unit  equalities  but  not 

{x=x}. 

Proof;   We  will  show  that  any  U-e-g  resolvent  is  produced 
by  a  series  of  coercion  resolvents  which  do  not  involve  any  uses 
of  transitivity  inside  of  unification.   We  do  this  by  induction 
on  n,  the  number  of  uses  of  transitivity  in  the  U-e-g  resolution. 

If  n  =  0,  the  U-e-g  resolution  and  the  coercion  resolution 
are  the  same. 

Assume  the  induction  hypothesis  is  true  for  U-e-g  resolu- 
tions with  n  or  less  transitivity  applications.  Consider  a  U-e-g 
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resolution  with  n+1  transitivity  steps.   We  select  one  of 
these  n+1  transitivity  applications,  say: 

{a  ^  c,  c  7^  b,  a  =  b} 
The  a  =  b  must  be  linked  to  an  a  ?^  b.   If  this  a  7^  b  is  in  a 
clause  in  S-U  then  we  may  resolve  a  7^  b  and  transitivity 
directly.   Otherwise   this  a  ?^  b  is  in  U,  and  therefore  in  E, 
since  U-E  contains  only  positive  unit  equalities.   There  are 
two  cases:   either  it  is  on  a  chain  of  the  type  described  in 
Theorem  6,  or  it  is  not.   In  the  first  case  it  can  be  removed 
by  a  U-e-g-resolution,  and  in  the  second  must  be  produced  by 
some  U-e-g  resolution  as  one  of    the  resultant  literals.   In 
both  cases  this  U-e-g-resolution  will  involve  no  more  than  U 
applications  of  transitivity,  and  so  can  be  done  by  coercion. 

Finally  the  two  literals  a  ?^  c,  and  c  7^  b  may  each  be 
removed  by  a  unary  coercion.    Such  a  deduction  is  allowed 
since  the  subtrees  linked  to  these  literals  in  the  U-e-g  resolu- 
tion each   contains  no  more  than  n  applications  of  transitivity. 

We  have  shown  that  no  applications  of  transitivity  are 
required  inside  unification;  since  using  transitivity  inside  of 
unification  can  only  increase  the  number  of  solutions,  we  may 
apply  it  selectively  without  removing  completeness.  Therefore 
in  part  (C)  step  (5)  any  set  of  restrictions  may  be  used. 
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2.8   Comparison  of  Coercion  and  Resolution  * 

The  results  reported  below  were  obtained  from  a 
straightforward  Horn  clause  resolution  program  which  was 
modified  to  implement  coercion.   A  switch  could  be  set  in 
this  algorithm  so  that  it  would  revert  to  the  standard 
unification  algorithm  for  comparison  purposes. 

Horn  clause   resolution  was   chosen   for   its 
simplicity.   We  use   input  resolution,   with  the 
literals  in  a  clause  maintained  in  the  original  order,  and 
resolution  permitted  only  on  the  first  literal.   We  prefer 
input  resolution,  since  at  any  point  in  an  input  resolution 
procedure,  there  are  a  number  of  resolvents  which  can  be 
worked  on  (the  "pool")  and  the  order  in  which  they  are  chosen 
does  not  affect  the  possible  resolutions  which  can  be  done; 
this  would  appear  to  be  a  significant  advantage  when  trying 
to  compare  procedures  which  are  highly  dependent  on  heuristics. 

Only  three  heuristics  were  actually  used.   Resolvents 
with  complexity  (in  effect  the  number  of  symbols  in  the 
expression)  greater  than  some  cut-off  point  were  discarded; 
resolvents  were  selected  in  order  of  increasing  complexity  and 
increasing  depth  if  complexity  was  equal;  coercion  was 
restricted  to  a  maximum  depth  of  three.   Resolvents  which 
were  alphabetic  variants  of  previously  encountered  clauses 
were  also  discarded. 
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Example  1   is  the  ring  theory  problem  discussed  in 
Section  2  above.    The  generalized  unification  procedure 
found  the  proof  discussed,  using  axioms  (1)  through  (8)  only. 
The  results  are  summarized  in   Table  I.    The  standard 
resolution  procedure  ran  out  of  time  after  having  generated  ' 
30%  more  resolvents  but  only  getting  half  of  the  proof. 

Example  2   is  a  somewhat  simpler  ring  theory   problem. 
That  is,  from  the  axioms 

(1)  X  =  0  +  X 

(2)  X- (y+z)  =  x-y  +  X'Z 

(3)  x  +  z  =  y  +  z-»-x  =  y 

together  with  appropriate  equality  axioms,  to  prove 

(4)  x-0  =0 

In  standard  resolution,  this  proof  could  be  obtained  in  the 

following  11  steps: 

(RO] 

(Rl] 

(R2; 

(R3] 

(R4)   0  +  (x-y+x-z)f^  a-0  +  x(y+z)        (R3)  and  (2) 

(R5)   a-0  +  x- (y+z)  7^  0+(x«y+x-z)        (R4)  and  symmetry 

(R6)   V  7^  x-(y+z),  a-0  +  v  7^  0+(x-y+x-z)  (R5)  and  substitutivity 

{R7)   x-(y+z)  7^  V,  a-O+v  i^   0+(x-y+x-z)    (R6)  and  symmetry 

(R8)   w  f   y+z,   x*w  ^   V, 

a-0  +  V  ?^  0  +  (x-y  +  x-z)       '   (r7)  and  substitutivity 


-45- 


a  •  0  ?^  0  negated  theorem 

a-0  +  z  7^  0  +  z  (RO)  and  (3) 

O  +  Zj^a-O  +  z  (Rl)  and  symmetry 

XT^y,  O  +  yT^a-O  +  x  (R2)  and  substitutivity 


(R9)   x-w  i^   V,  a-O+v  i^   0+(x-0+x-w)         (R8)  and  (1) 
(RIO)  a-0  +  X'W  7^  0  +  (x-0  +  x«w)  (R9)  and 

(Rll)  D  (RIO)  and  (1) 

Our  standard  resolution  program  actually  ran  out  of  time 
after  generating  754  clauses,  getting  (R4)  but  not  (R5) . 
There  were  429  clauses  left  in  the   pool  at  this  point. 
Note  that  this  proof  is  made  longer  than  it  might  be  by 
the  use  of  the  particular  forms  of  the  axioms,  necessitating 
several  applications  of  the  symmetry  axiom. 

The  generalized  unification  proof  took  just  the 
following  two  steps: 
(RO)        a-0  i^   0 

(Rl)        a-O  +  X  ?^  0  +  X  (RO)  and  (3) 

(R2)        P  (Rl)  and  (1)  and  (4) 

This  proof  appeared  as  the  17   clause  generated,  at  which 
time  there  were  4  clauses  in  the  pool.   The  step  from    (Rl) 
to  (R2)  is  by  no  means  obvious,  and  proceeds  as  follows: 
First  (Rl)  is  resolved  against  (1) ,  with  the  unification 
subproblem 

a«0  +  X  =  X 

which  is  unified  with  (2)  giving  the  subproblem 

a-0  +  X- (0+z)  =  x-0  +  x-z 

which  generates  the  subproblem 

0  +  z  =  z 

which  unifies  with  (1)  reversed.   The  results  are  summarized 
in  Table  II. 
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Coercion 

Resolvent 

Standard  Resolution 

Resolvent 

Number 

Pool 
Size 

Resolvent    Pool 
Number      Size 

2 

0 

(Rl) 

2           0 

13 

4 

(R2) 

40         24 

21 

3 

(R3) 

156         79 

65 

14 

(R4) 

452         214 

128 

21 

{R7) 

*           * 
>779         351 

136 

26 

(R8) 

370 

30 

{R9) 

597 

46 

D 

*  out  of  time 

80  resolvent 
accepted 

s 

130  resolvents 
accepted 

2  36  seconds 

>512  seconds 

Table  I.   Comparison  of  Proofs  of  a*b  =  -a  •  -b 
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Coercion 

Resolvent 

Standard  Resolution 

Resolvent     Pool 

Resolvent      Pool 

Niimber       Size 

Number        Size 

1           0 

(Rl) 

4           15 

' 

(R2) 

35            20 

(R3) 

57            35 

not  needed 

(R4) 
(R5) 

338           208 
>754  *         429 

I'!  . 

17           4 

\ 

•  •  • 

r\  ' 

* 

out  of  time 

12.7  seconds 

>512 

Tcible   II.         Comparison  of  Proofs   of     x-0   =   0 
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CHAPTER  3 
THE  DILEMMA  PROGRAMMING  LANGUAGE 

While  it  would  be  possible  to  base  a  computer  language 
solely  on  the  coercion  mechanism  such  a  system  would  then  be 
deficient  in  several  aspects.   First,  since  it  would  not  have 
a  procedural  component,  though  we  could  state  any  fact  or 
concept,  it  would  be  hard  to  tell  the  theorem  prover  exactly 
when  to  use  these  facts  or  concepts.   We  believe  that  such 
additional  information  is  often  best  given  in  imperative  form. 

A  second  deficiency  occurs  when  there  are  many  extraneous 
ground  clauses.   If,  for  example,  we  wished  to  have  the  entire 
multiplication  table  of  the  hardware  described  by  a  set  of  clauses, 
the  storage  and  retrieval  problems  would  be  terribly  complex. 
In  any  given  run  only  a  few  of  these  would  be  relevant.  A  far 
simpler  technique  would  be  to  generate  ground  clauses  as  needed. 

The  third  deficiency  is  the  duplication  that  arises  when 
there  are  clauses  which  are  equivalent.  For  example  in  a  geometry 
program  we  could  have  a  clause  containing  the  line  AB  and  a  second 
clause  containing  the  line  BA.  Ideally  we  would  like  to  represent 
clauses  in  a  canonical  form  deleting  duplicates. 

The  final  deficiency  that  we  wish  to  consider  is  that 
duplicate  computations  are  often  necessary.  If  in  the  course  of 
proving  two  lines  equal  we  prove  that  a  pair  of  triangles  is  con- 
gruent, we  would  like  to  record  that  fact.   Proofs  of 
congruence  should  only  be  done  once.   Furthermore,  once 
we  know  that   two   triangles   are  congruent,   there  are 
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a  number  of  immediate  consequences;  for  example,  corres- 
ponding angles  are  equal.   Often  it  is  computationally 
advantageous  to  draw  these  consequences  immediately. 

In  this  chapter  we  will  describe  the  pure  language 
and  a  way  to  remove  some  of  these  deficiencies  by 
introducing  imperatives.   We  next  will  give  the  syntax 
and  semantics  of  Dilemma   using  coercion  and  imperatives. 
Chapters  4  and  5  discuss  a  sample  program  which  proves 
geometry  theorems.   Finally,  Appendix  I  contains  an 
interpreter  of  Dilemma  written  in  BALM. 
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3.1        Horn  Clauses   as   Procedures 


Logical   statements   of   the   form: 


~\P,    V  HP-    V    ...    V  HP      V   Q 
12  n 


IP,    V   nP^    V    ...    V   ~1P 
12  n 

are  said  to  be  in  Horn  form.   Each  such  statement  has  at  most 
one  positive  literal .   Many  useful  structures  may  be  described 
by  a  collection  of  Horn  statements.   The  following  result  due 
to  Horn  [22]   characterizes  such  structures.   We  first  define 
the  notion  of  "closed  under  direct  product".   Suppose  S  is  a 
set  of  statements,  with  m,  and  m-  two  models  for  S.  If  m^^xm^ 
is  also  a  model  of  S  we  say  S  is  closed  under  direct  product. 
Horn  showed  that  if  a  set  of  clauses  was  closed  under  direct  pro- 
duct then  there  exists  an  equivalent  set  of  clauses  which  is 
in  Horn  form.  For  example  since  we  know  that  if  G.  and  G^   are  two 
groups,  then  G,  x  G„   is  also  a  group,  there  is  a  set  of 
logical  statements  in  Horn  clause  form  which  will  describe 
groups. 

Statements  of  the  form  HP,  v  np_  v  .  .  .  v  "ip  v  Q 

12  n 

may  be  viewed  as  implications  P,  A  P-  a  .  . .  a  P  ->-  Q 
and  as  procedures  with  name  Q  and  body  P,  through  P  . 
We  interpret  such  a  procedure  to  mean:   P,  through  P  are 
sufficient  conditions  to  establish  Q. 

Statements  of  the  form  Q  may  also  be  viewed  as  implica- 
tions -*■  Q  or  as  procedures  with  name  Q,  and  null  body.   We 
interpret  such  a  procedure  to  mean  Q  is  an  immediate  result. 
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Finally  statements  of  the  form  ~1(P.  v  ...  v  P  )  are 
■'  in 

also  implications 

P,  A  p„  A  .  .  .  A  p  ->-  contradiction 
12  n 

We  interpret  this  as  initial  goals,  i.e.   report  success  if 

it  is  possible  to  achieve  all  of   P.  through  P  . 

When  there  are  arguments  involved  we  coerce  them 
together.  For  example: 

Given  the  procedures : 

(1)  P(b,a)  ■*   contradiction 

(2)  Q(x,a)  ^  P(a,x) 

and  the  unit  equality  a  =  b  we  execute  the  body  of  (1)  by 
first  proving  that  b  =  a  inside  of  unification  and  then 
binding  x  to  a.   The  body  of  (2)  becomes   Q(a,a). 

The  term  coercion  is  based  on  the  coercions  of 
ALGOL  68. 

We  note  that  bindings  in  a  call  affect  the  caller 
as  well  as  the  called  program.   We  could,  for  example, 
have  the  assignment  statement: 

-*■  SETQ(x,x) 

which  could  be  called  by  either   SETQ(x,z)  or  SETQ(z,x). 
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The  basic  execution  semantics   of  our  language  con- 
sists of: 

(1)  let  N  =  set  of  negative  clauses 

(2)  pick  some  c  in  N;  remove  it  from  N 

(3)  pick  some  literal  Jl  in  c 

(4)  using  coercion,  compute  the  set  S  of  generalized 
resolvents  of  subroutines  with  C,  resolving  on 
Jl  and  the  name  of  the  subroutine 

(5)  if  n  e  S,  stop;   otherwise,  go  to  (2). 

As  we  have  said,  this  form  of  language  would  be  very 
inefficient.  The  next  two  sections  will  describe  additional 
features  which  improve  the  performance. 

Since  the  basis  of  the  language  will  be  a  two  level 
theorem  prover   applied  to  Horn  clauses,  we  have  chosen  to 
call  the  language  Dilemma.   Before  we  give  a  formal  state- 
ment of  Dilemma,  we  will  give  an  example. 
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3.2   An  Example  (The  Jekyll  and  Hyde  Problem) 

Suppose  we  wish  to  tell  the  machine  of  a  kindly  old 

doctor  named  Jekyll.   Jekyll  is  the  name  of  an  individual 

or  a  constant  in  our  logical  universe.  To  tell  DILEMMA  about 

him  we  write: 

CONSTANT  JEKYLL  END; 

FACTl  ASSERT  DOCTOR (JEKYLL) : 

FACT2  ASSERT  KINDLY (JEKYLL) ; 

F3  ASSERT  OLD (JEKYLL) ; 

F4  ASSERT  HUMAN (JEKYLL) ; 

(we  have  underlined  keywords   in  these  examples;  the  underlin- 
ing is  not  part  of  the  actual  computer  input.)   Each  of  the 
statements  generates  a  positive  unit  clause.   Now  we  tell 
DILEMMA  the  nature  of  humans. 

F5  THEOREM  FALLIBLE (X)  FROM  HUMAN (X); 
F5  is  an  implication:    for  all  x,  if  x  is  hiaman  then  x  is 
fallible.   To  ask  the  question  "is  anyone  fallible?"  we  may 
write : 

PROVE  (FALLIBLE (X) ) ; 

PROVE  statements  generate  negative  clauses.   In  this  case 
NOT  FALLIBLE (X) .   This  clause  unifies  with  F5  to  give  the 
resolvent  —  NOT  HUMAN (X).   In  turn  this  resolves  with  F4 
to  give  the  resolvent  D.   Thus  we  have  proved  a  fallible 
individual  exists,  namely  Jekyll. 

A  slichtly  more  complex  question  is  "is  there  a  fallible 
doctor?". 
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PROVE (DOC TOP  (X)  A  FALLIBLE (X) ) ; 

The  literal  NOT  DOCTOR (X)  unifies  with  FACTl  to  give  the 

resolvent  —  NOT  FALLIBLE  (JEKYLL) .   This  generates 

NOT  HUMAN (JEKYLL)  via  F5 .   As  above  a  resolution  with  F4 

produces  the  null  clause.   If  there  were  a  few  other  doctors 

in  our  universe  of  discourse,  say  Strangelove  and  Schweitzer 

we  could  add  the  inputs: 

CONSTANT  STRANGELOVE,  SCHWEITZER  END; 
F6  ASSERT  DOCTOR (STRANGELOVE) ; 
F7  ASSERT  DOCTOR (SCHWEITZER) ; 

Asking  the  same  question: 

PROVE (DOCTOR (X) aFALLIBLE (X) ) ; 

gives  the  following  resolvents: 

NOT  FALLIBLE (STRANGELOVE)  from  F6 ; 
NOT  FALLIBLE (SCHWEITZER)  from  F7 ; 
NOT  FALLIBLE (JEKYLL)  from  FACTl. 

Each  of  these  is  executed  in  parallel  with  F5  to  give: 

NOT  HUMAN (STRANGELOVE) 
NOT  HUMAN (SCHWEITZER) 
NOT  HUMAN (JEKYLL) 

The  last  of  these  yields  the  null  clause  via  F4 .   The  X  in 

the  PROVE  statement  is  assigned  the  value  JEKYLL  since  that 

is  the  only  solution  which  produces  the  null  clause.   The 

other  assignments  of  X  are  "undone"  as  those  parallel  paths 

of  execution  terminate  unsuccessfully. 

Suppose  we  add  still  another  individual  to  this  system, 

the  diabolical  Mr.  Hyde. 
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CONSTANT  HYDE  END; 

F8  ASSERT  DIABOLIC (HYDE) ; 

Up  to  this  point  DILEMMA  has  been  similar  to  older  AI 

languages.   Now  we  come  to  a  basic  difference.   We  will 

say  that  Jekyll  and  Hyde  are  the  same.   One  way  to  do  this 

would  be  to  write: 

SI  ASSERT  SAME(HYDE,JEKYLL) ; 

Of  course  we  must  define  the  effects  of  SAME. 

82  THEOREM  DOCTOR (X)  FROM  DOCTOR (Y)  A  SAME(X,Y) 

53  THEOREM  KINDLY (X)  FROM  KINDLY (Y)  A  SAME(X,Y) 

54  THEOREM  OLD(X)  FROM  OLD(Y)  A  SA>E:(X,Y) 

55  THEOREM  HUMAN (X)  FROM  HUMAN (Y)  A  SAME(X,Y) 

56  THEOREM  FALLIBLE (X)  FROM  FALLIBLE (Y)  A  SAME(X,Y) 

57  THEOREM  SAME(X,Y)  FROM  SAME(Y,X); 

58  THEOREM  SAME(X,Y)  FROM  SAME(X,Z)  A  SAME(Z,Y); 

59  ASSERT   SAME(X,X); 

SA  THEOREM  DIABOLIC (X)     FROM  DIABOLIC (Y)  A  SAME(X,Y); 

If  we  ask  "is  there  a  diabolic  doctor?" 

PROVE  (DOCTOR (X) A  DIABOLIC (X) )  ; 
the  resolvents  are: 

1.  NOT (DOCTOR (Y)  A  SAME(X,Y)  a  DIABOLIC (X)) 

2.  NOT (DIABOLIC (JEKYLL) 

3.  NOT (DIABOLIC (STRANGELOVE) ) 

4.  NOT (DIABOLIC (SCHWEITZER) ) 
In  stage  two  the  resolvents  are: 

1,  5.   NOT (DOCTOR ( Z) ,   SAME(Y,Z),   SAME(X,Y),   DIABOLIC (X) ) 

6.  NOT (SAME (X,  JEKYLL),   DIABOLIC (X)) 

7.  NOT (SAME (X, STRANGELOVE) ,   DIABOLIC(X)) 
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8.   NOT (SAME (X,SCHWEITZER) ,   DIABOLIC{X)) 
2,  9.   NOT (DIABOLIC (Y),   SAME (JEKYLL, Y) ) 

3.10.  NOT (DIABOLIC (Y) ,   SAME (STRANGELOVE , Y) ) 

4.11.  NOT (DIABOLIC (Y),   SAME (SCHWEITZER, Y) ) 

In  stage  three  the  resolvents  include: 

NOT (DIABOLIC (HYDE) ) 

NOT (SAME  (JEKYLL, X)  ,   DIABOLIC (X)) 

NOT (SAME (X, Z) ,   SAME (Z , JEKYLL) ,   DIABOLIC (X) ) 

NOT (DIABOLIC { JEK  fLL) 

Finally  in  stage  4   we  produce  the  null  clause. 

Another  way  available  in  DILEMMA  to  describe  the 
intimate  relationship  between  Jekyll  and  Hyde  is  the  coercion 

HI  COER  H YDE, JEKYLL; 
HI  tells  DILEMMA  that  the  constant  HYDE  may  be  "COERced" 
into  the  constant  JEKYLL  when  necessary  for  unificat.  on. 

In  standard  unification  we  seek  to  find  a  substitution 
which  will  make  two  literals  identical.   In  DILEMMA  we 
require  only  that  the  literals  become  equivalent.   Coercions 
are  used  to  specify  facts  to  an  inner  theorem  prover.  This 
prover,  invoked  during  unification,  attempts  to  prove  the 
equivalence. 

So,  using  Hi  rather  than  the  S ' s  we  have: 
PROVE (DOCTOR (X)  A  DIABOLIC (X) ) ; 

1.  NOT (DIABOLIC (JEKYLL) ) 

2.  NOT (DIABOLIC (SCHWEITZER) ) 

3.  NOT (DIABOLIC (STRANGELOVE) ) 

In  stage  2  we  get  the  null  clause  by  resolving  1  with  F8 
using  Hi. 

-57- 


The  Dilemma  system  has  been  developed  as  an  extension 
of  the  BALM4  programming  language  [16] .   All  of  the  BALM4 
features  are  available  to  the  Dilemma  programmer.   Several 
additional  data  types  and  structures  are  provided.   We  will 
assume  that  readers  are  familiar  with  the  BALM4  language 
and  will  freely  make  use  of  the  concepts  and  terminology 
defined  in  [17] . 

We  will  use  the  following  notation: 

<el>,<e2>  will  be  two  expressions 

<item>  will  be  any  valid  BALM4  item 

<lit>  will  be  a  literal 

[x]  will  be  0  or  more   occurrences  of  x 

<pos  lit>  will  be  a  literal  which  is  interpreted 

to  be  positive. 

<name>  will  be  any  BALM  identifier 

<proc>  will  be  a   BALM  identifier 


3 . 3    The  Syntax  of  a  Basic  Dilemma  Program         ■  •  u.. , 

3.3.0  Constants  '^ 

Constants  are  defined  by  the  CONSTANT  statement  in  the 
form: 

CONSTANT  item, item, . . . ,item  END; 
The  items  may  be  any  expression.   Usually,  however,  they  are 
numbers  or  BALM4  identifiers.  One  CONSTANT  statement  adds  to 
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the  next.   So  if  we  use: 

CONSTANT  A,B,C,D  END; 

CONSTANT  1,2,RTANG,3,4  END; 
we  would  have  nine  constants . 

In  input  form  constants  are  just  the  items  from  CONSTANT 
statements.   However,  internally  (and  in  output)  an  extra  set 
of  parentheses  are  added  to  turn  the  constant  into  a  function 
of  zero  arguments,   so  the  input  constant  RTANG  becomes 
(RTANG)  internally. 

3.3.1  Expressions  and  Literals 

Expressions  and  literals  occur  in  two  forms  in  Dilemma. 
The  first  of  these  in  called  input  form.    Here,  Skolem 
functions  follow  the  rules  for  BALM4  expressions;  e.g. 

F(X)  ,    G(X,Y)  ,    S(X,  F(Y))  . 

Any  BALM4  identifier  (which  has  not  been  in  a  CONSTANT 
statement)  inside  of  an  expression  is  a  variable  and  is 
local  to  the  Dilemma  statement  containing  that  expression. 
Function  and  predicate  symbols  are  just  BALM  identifiers. 
In  the  same  way  literals  (in  input  form)  follow  the  rules 
for  BALM4  expressions;  e.g.,  P(F(X)),  P(X),  Q(F(X),  Y) . 
Each  time  a  predicate  or  function  is  used  it  must  have  the 
Scune  number  of  arguments. 

The   other  form  called  internal  form  is  more  LISP-like: 
all  commas  are  removed,  the  parenthese  are   shifted  to 
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include  the  predicate  or  function  syiT±»ol ,  and  variables  are 
changed  to  numbers;  e.g. 

P(F(X),  X,  F(X))    is  changed  to   (P  (Fl)  1  (F  1) ) 

Internal  form  is  used  for  output. 


3.3.2   Unit  Positive  Clauses  ' 

The  simplest  Dilemma  statement  is  the  assertion: 

<name>  ASSERT  <literal>; 
For  example: 

LI   ASSERT  EQLINE  (L(X,y),  L(Y,X)); 

Assertions  are  positive  unit  clauses;  they  need  not  be  ground. 


3.3.3   Implications 

In  Dilemma  an  implication  may  be  written: 
<name>  THEOREM  <pos  literal>  FROM  <literal>  [A<literal>]  ; 

The  idea  is  that  the  conjunction  of  literals  is  sufficient 
to  prove  the  <pos  literal>.   An  example: 

DESCARTES  THEOREM  EXISTS (X)  FROM  THINKS (X) ; 
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3.3.4   Negative  Clauses 

A  negative  clause  is  always  the  last  input.   It  may 
be  specified  in  one  of  the  following  ways: 

(1)  PROVE (<lit>) ;         The  lit  is  a  unit  negative  clause 

* 

(2)  PROVE (<lit>[A<LIT>]  );  There  is  one   negative  clause. 

Each  literal  must  be  proved. 

(3)  PROVE(LIST(<lit>[ A<lit>]  *, . . . , <lit>[ A<lit>f) ) ; 

Prove  any  one  of  the  conjunctions. 

The  third  form  is  an  "or  of  ands".   The  clauses  are  ordered. 
It  is  more  efficient  to  enter  clauses  in  increasing 
complexity. 

The  name  of  an  assertion  or  implication  is  required. 
It  is  used  to  label  output  and  internally  to  reference  the 
clause.   (Internally,  the  corresponding  clause  is  actually 
assigned  as  the  value  of  the  identifier  used  to  name  it.) 
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3.3.5  Coercions 

Coercions  are  used  to  state  that  two  expressions  are 
equal  (or  equivalent) .   If  <el>  and  <e2>  are  predicates  then 
we  will  talk  about  their  equivalence.   Otherwise  these  are 
expressions  and  we  talk  of  their  equality.   In  either  case 
we  write  <el>  =  <e2>.   To  say  that  <el>  =  <e2>,  we  write: 

<name>  COER  <el>,  <e2>; 

Often  we  may  find  a  condition  under  which  <el>  =  <e2>.   The 

general  form  is 

* 
name  COER  <el>,  <e2>,  <lit> [A<lit>]  ; 

Suppose  H(X)  implies  F(X)  =  G(X).   Then  we  may  write: 

HFG  COER  F(X) ,G(X) ,H(X) ; 

If  two  ground  items  are  not  equal  this  may  be  specified  by 

DIFFERENT (<iteml>,<item2>) 

3.3.6  CPROCS 

In  order  to  have  a  useful  language  we  need  to  be  able 
to  encode   lots  of  tricks  and  heuristics.  Dilemma  provides  a 
number  of  methods  which  let  the  user  alter  the  normal  flow  of 
control. 

Normally  a  coercion  is  used  whenever  applicable.  However, 
we  frequently  know  the  restrictions  on  when  to  apply  a 
particular  coercion.   Suppose  we  have  a  coercion  C  COER  X,Y 
and  a  BALM  procedure  P  ;  the  statement   C  CPROC  P   is  of  the 
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general  form 

<cnaine>  CPROC  <proc>; 

which  associates  the  procedxire  and  the  coercion. 
We  call  P  the  CPROC  of  the  coercion. 

A  CPROC  is  called  just  before  the  associated  coercion 
is  applied.   Each  CPROC  has  three  argiiments: 

1.  item  from  negative  clause  to  be  unified 

2.  item  from  mixed  or  positive  clause  to  be  unified 

3.  set  of   solutions  already  found  (NIL  if  none  is  found) 
The  solutions  are   each  a  pair:   a  list  of  added  literals, 
followed  by  a  binding  list. 

The  arguemtns  to  a  CPROC  are  in  internal  form  (the  LISPish 
way  to  write  a  clause  without  commas) .    CPROCs  return  either: 

1.  NIL  —  don't  apply  the  coercion;  or 

2.  TRUE  —  use  the  coercion;   or 

3.  a  number  —  which  becomes  an  additional  upper  bound 
on  depth  of  coercions  used.   Thus  if  a  CPROC  returns  0 
then  the  coercion  will  be  applied  but  no  coercions 
will  be  used  below  it. 

CPROCs  often  will  use  the  function  GROUND (X)  which  is  true 
if  X  is  a  ground  expression,   CONSTANT (X)   which  is  true  if 
X  is  a  constant,  and  the  global  variable  UNIFDEPTH  which  gives 
the  current  recursive  level  inside  unification.  UNIFDEPTH  =  0 
at  the  top. 

Some  typical  CPROCs  are: 
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*  cnly  use  the  coercion  if  no  other  solutions  have  been  found 
UNIQUE  =  PROG(N,P,SOL) ,  SOL  EQ  NIL  END; 

*  only  use  the  coercion  at  the  top  level  arguments 
TOP  =  PROC(N,P,SOL) ,  UNIFDEPTH  EQ  0  END; 

*  only  use  the  coercion  if  one  of  the  two  expressions  is  ground 
ONEG  =  PROC(N,P,SOL) ,  GROUND(N)  OR  GROUND(P)  END; 

A  rather  odd  way  to  define  a  CPROC  is: 
C  CPROC  PROC(N,P,SOL) ,  SOL  EQ  NIL  END; 

Here  we  have  defined  the  CPROC  and  associated  the  coercion 

in  one  statement. 

A  number  of  global  variables  affect  just  how  coercions 

will  be  applied. 

EVARS       if  true  don't  apply  any  coercions  whenever  both 
terms  are  variables.   Normally  this  is  true. 

ONEWAY      if  true  apply  the  coercions  in  one  direction. 
That  is,  if  C  COER  L,R  is  a  coercion  only 
try  to  use    L    with  the  item  from  the  negative 
clause  and  R     with  the  item  from  the  positive 
clause.   Normally  this  is  false. 

MAXCOERS    the  search  for  a  unifier  uses  this  value  as  a  depth 
bound.   0  would  prevent  any  coercions  from  being 
used.   The  switch  can  be  used  to  turn  DILEMMA  into 
a  standard  input  resolution  theorem  prover. 

The  actual  algorithm  used  to  apply  coercions  is  given  below: 
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To  unify  N  and  P  with  the  coercion  C  COER  L,R;  : 

(1)  If  N  and  P  are  variables,  and  BVARS  is  true, 
bind  N  to  P  and  return 

(2)  If  POSSIBLE (N,L)  and  POSSIBLE (P,R)   then 

a)  if  there  is  a  CPROC  associated  with  C  execute  it; 
return  false  if  it  returns  false 

b)  otherwise,  if  the  current  depth  is  less  than  MAXCOERS 
compute  the  set  of  vmifiers  which  simultaneously 
satisfies  UNIFY(N,L)   and   UNIFY(P,R). 

(3)  If  ONEWAY  is  true,  then  return;  otherwise,  apply  (2) 
to  the  coercion   COER  R,L;   and  add  any  new  solutions 
found . 

In  the  above,  POSSIBLE (X,Y)  is  true  if 
X  is  a  variable  or  Y  is  a  variable  or  X  and  Y  start 
with  the  same  function  symbol. 
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3.4    PARTIAL  EVALUATION 

Sometimes  we  know  exactly  how  to  solve  a  problem  or  some 
part  of  a  problem.   For  instance  we  could  have  a  particular 
interpretation  which  suggests  values  of  functions.   Suppose 
we  have  a  predicate 

P(x,y,z)  **■   x-y  =  z 

If  X,  y,  and  z  are  all  integers,  we  may  check  this  predicate 
in  a  model,   the  computer  hardware  arithmetic.   The  check  is 
done  by  the  following  sequence:  "multiply  x  times  y  and 
compare  with  z".   This  sequence  is  an  imperative  explaining 
how  to  check  items . 

If,  on  the  other  hand,  x  were  a  variable  we  would  like 
to  execute  the  following:   if  y  and  z  are  integers  and  y  f^  0 

then 

-1 
set  X  =  z  •  y 

In  addition,  once  a  resolvent  is  computed,  there  are  often 
simplifications  to  be  made.  For  example,  we  could  represent 
items  in  a  canonical  form.   Or,  we  could  evaluate  functions, 
e.g.   S(S(0))   goes  to  2 .   At  the  same  time  we  may  add 
heuristic  functions. 

Partial  evaluation  is  a  technique  of  associating  functions 
written  in  a  standard  computer  language  with  predicates  and 
Skolem  functions.   The  collection  of  lower  level  functions  is 
called  the  computational  base.   Whenever  we  know  how  to  achieve 
some  part  of  a  goal  in  a  simple  way  we  may  add  a  computational 
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function  using  all  the  standard  tricks  of  the  computer 
programmer. 

We  may  associate  with  each  N  place  function 
N+1   BALM  procedures.   Each  time  we  bind  a  variable  which 
occurs  inside  a  function  we  will  execute  the  associated 
procedures.   The  first  N  of  these   procedures  corresponds 
to  the  arguments  of  the  function.   They  are  executed  only 
if  the  argument  is  a  variable.   The  output  of  each  procedure 
will  be  a  new  binding  for  the  variable.   The  last  procedure 
is  associated  with  the   function  as   a  whole.   It  will 
return  a  set  of  bindings  and  a  value  which  is  to  replace  the 
function .   Each  of  these  procedures  gets   the  function 
as  its  argument.   A  typical  function  would  be 
the  successor  function  S(n).   It  is  mapped  to  n+1  if  n  is 
an  integer,  and  otherwise  it   returns  the  symbolic  quantity 
S(n)  . 

In  a  similar  way,  we   can  associate  a  BALM  procedure  with 
each  predicate.    The  result  of  executing  such  a  procedure 
should  be  either  a  replacement  literal,  TRUE  indicating  that 
the  literal  may  be  assumed  true  or  FALSE  indicating  that  the 
literal  cannot  be  proved.  These  procedures  may  also  bind  variables. 

Several  previous  attempts  have  been  made  to  use  partial 
evaluation.   Applied  only  to  ground  clauses  and  then  only 
allowed  to  return  a  truth  value,  ad  hoc  partial  evaluations 
could  be  constructed  easily.    However,  when  the  attempt  was 
made  to  generalize  to  some  variant  of  the  scheme  we  have 
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suggested,  a  problem  appeared.   Suppose  we  have  a  successor 
function   S(N)   where  for  instance   S(S{0))  evaluated  to  2. 
The  difficulty  occurs  when  we  have  to  unify  2  and  S(n). 
Since  no  binding  will  make  2  and  S(N)  identical,  they  could 
not  be  unified.   Yet  for  completeness  we  certainly  need 
them  to  be.   The  coercion  technique  provides  a  way  of 
retaining  these  unifications.  All  we  need  do  is  find 
conditions  under  which  2  and  S(N)  are  equivalent.   We  could 
for  example  use  the  coercion: 

sue  GOER  X,  S(N),  EQ(X,  PLUS(N,1))  . 
A  second  use  of  partial  evaluation  is  to  adjust  the  global 
search  strategy.   In  the  course  of  executing  a  procedure  we 
may  change  a  number  of  global  variables.   These  delay  the 
expansion  of  certain  nodes  or  cause  others  to  be  processed 
immediately.   The  idea  is  that  low  level  computations  done 
inside  of  partial  evaluation  can  be  used  to  direct  the 
search  strategy.  If,  for  example,  we  had  a  predicate 
INT(x,y,z)   to  stand  for   "integrating  x  with  respect  to  y 
gives  z"  we  could  have  a  clause  of  the  form 

INT{PLUS(P,Q) ,Y,PLUS(R,S) )  ^  INT(P,Y,R)  A  INT(Q,Y,S) 
If  we  wanted  to  use  this  rule  only  when  P  was  simpler  than 
PLUS(P,Q)  we  could  add  an  additional  predicate: 
INT(PLUS(P,Q),Y,PLUS(R,S))  ^  INT(P,Y,R)  A  INT(Q,Y,S) 

A  SIMPLEFORM(P,PLUS (P,Q) ) 
SIMPLEFORM  could  reject  terms  of  a  complex  nature  by  return- 
ing FALSE  if  P  or  PLUS(P,Q)  were  too  complex. 
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By  embedding  heuristics  within  the  partial  evaluation 
scheme  our  system  functions  rather  differently  than  other 
AI  languages.   In  a  language  like  PLANNER,  a  clause  is 
represented  by  an  ordered  sequence  of  pairs.   Each  pair 
consists  of  a  literal  and  a  filter. 

Prior  to  resolving  on  a  given  literal,  the  filter  is 
called  to  produce  an  ordered  sequence  of  clauses  to  resolve 
with.   Often  the  filter  acts  as  a  generator  producing  the 
elements   of  this  sequence  one  at  a  time.   Resolution  is 
then  attempted  only  between  the  literal  and  the  first  clause 
in  the  sequence.   An  automatic  backup  system  allows  the 
program  to  eventually  compute  the  other  resolvents.   In  our 
system,  a  clause  consists  of  a  set  of  literals  and  strategies. 
When  we  have  selected  a  literal,  we  resolve  it  with  all  other 
possible  clauses.  We  put  all  strategies  which  were  in  either 
parent   clause  into  the  resolvent.   Finally  we  execute  all 
of  these  strategies.   Besides  setting  global  variables,  the 
strategies  may  return  TRUE,  meaning  delete  this  strategy  from 
the  resolvent,   FALSE,  meaning  delete  the  resolvent,  or  another 
strategy  to  be  put  into  the  resolvent.   If  a  strategy  returned 
a  pointer  to  itself,  the  strategy  would  be  invoked  again  for 
descendants  of  the  resolvent. 

The  PLAJ^NER  scheme  has  the  advantage  that  if  the  filter 
is  reasonable,  it  can  cut  down  the  number  of  attempted  resolu- 
tions.  On  the  other  hand,  we  see  a  number  of  advantages  to 
our  system.   First,  since  the  strategy  obtains  the  value  of 
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variables  after  the  resolvent  has  been  computed  it  may   make 
a  more  informed  decision.   Second,   all  the  strategies  are 
evaluated  at  each  point  rather  than  just  one.   Third,  since 
strategies  may  remain  in  the  descendants,  a  strategy  may  wait 
in  making  a  decision  until  additional  information  is  available. 
Finally  there  are  many  more  possibilities  for  parallelism  since 
we  compute  all  the  resolvents  at  once,  and  then  evaluate  the 
strategies  simultaneously.   Perhaps  we  should  add  one  more 
difference:  suppose  a  literal  £  could  be  advantageously  resolved 
with  a  literal  in  a  clause  C.  In  PLANNER  the  recognition  of  that 
advantage  would  be  computed  by  a  filter  associated  with  the  liter- 
al Z.    In  our  language,  the  recognition  occurs  by  a  strategy 
associated  with  C.  If  we  add  a  new  clause,  we  need  only  put  the 
strategy  in  that  clause.   In  PLANNER  we  would  haveto  change  the 
filters  associated  with  all  old  literals  which  could  resolve  with 
this  clause.  Thus,  in  Dilemma,  as  we  add  new  clauses,  telling  of 
better  ways  to  do  things,  less  changes  need  to  be  made  in  the 
original  clauses. 

3.4.1  PARTEVAL 

The  PARTEVAL  statem.ent  is  used  to  associate  BALM 
procedures  with  the  partial  evaluation  of   function  and  predi- 
cate symbols.   These  procedures  which  we  will  call  PE ' s  are 
executed  just  after  the   resolvent  is  computed, 

<pred  symbol >  PARTEVAL  <proc>; 

<func  symbol >  PARTEVAL  <proc>; 

The  argument  of  a  PE  is  the  part  of  the  literal  which  starts 

at  the  predicate  or  function  symbol.   It  is  almost  in  internal 

form.   However,  variables  are  changed  to  the  BALM  id's 
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Xl,X2,X3, . . . ,X12.   If  we  have 

F  PARTEVAL  FPROC; 
P  PARTEVAL  PPROC; 
and  the  resolvent  contains  the  literal  (P  (F  1)  (A))   then 
the  execution  operates  as  follows.   First  FPROC  will  be 
called  with  argument  (F  XI) .   If  FPROC  returns  its  argument, 
PPROC  will  be  called  with  (P  (F  XI)  (A))  as  its  argument. 
If  a  PE  is  used  for  a  function,  it  must  return  a  replacement 
expression  (one  possibility  is  its  argument) .   To  reject  a 
clause  the  function  need  only  set  the  global  variable  RETAIN 
to  FALSE.  ' 

PE's  used  for  predicates  may  return  ^'"^ 

1.  TRUE   —  delete  the  literal 

2.  FALSE  —  delete  the  clause 

3.  replacement  literal. 

For  PE's  which  are  to  be  associated  with  predicates  an 
alternative  diction  is  available: 

<pred>  PART  <i>  =  <proc>;         ^  1  i  1  ^ 
In  this  form  the  PROC  is  called  only  if  the  i   argument  of 
the  literal  is  a  variable.   It  may  return: 

1.  TRUE   —  delete  the  literal 

2.  FALSE  —  delete  the  clause 

3.  A  binding  for  the  variable  which  will  make  the  literal  true 

4.  A  replacement  literal. 

PE  procedures  generally  consist  of  a  few  calls  to  built-in 
functions.   We  will  first  describe  several  of  these  functions 
in  detail  and  then  later  give  a  complete  list. 
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The  built-in  function  BIND (expl ,exp2)  is  used  to  assign 
values  to  Dileinina  variables:  expl  is  replaced  by  exp2 .  One  of 
the  odd  properties  of  BIND  is  that  anything  may  be  bound  to 
anything  else.   If  we  bind  (F  XI)  to   (G  XI)  then  all  (F  XI) 
expressions  in  the  clause  are  changed  to  (G  XI) .  Also  if  we 
bind  a  variable  other  than  X1,X2, . . . ,X12  to  a  value  that  fact 
is  recorded  on  a  special  list  which  is  associated  with  the 
clause.   PE's  may  use  BIND  to  communicate.   The  function 
ISBOUNDdD)  finds  out  if  ID  is  bound  or  not.   The  result  of 
ISBOUND  is  TRUE  or  FALSE.   The  global  variable  BNDVAL  gets 
the  bound  value.   CRACK  is  a  generalized  assignment,  e.g. 
CRACK (pattern, expression) .   Its  first  argument  is  a  pattern. 
This  is  matched  with  the  second  argument;  structure  and 
constants  must  match.  Whenever  a  variable  is  matched  with  a 
subexpression,  an  assignment  is  made.   An  additional  Dilemma 
statement  allows  variables  to  be  typed: 

TYPE  <id>  =  <proc>; 

Typed  variables  are  global.   Prior  to  CRACK  assigning  a  value 
to  a  typed  variable,  the  procedure  is  called  with  the  value 
as  its  argument.   The  assignment  is  carriedout  only  if  the 
procedure  returns  true.   CRACK  itself  returns  a  value:  TRUE, 
if  the  pattern  matches  the  expression  and  all  assignments 
could  be  carried  out;  and  FALSE  otherwise.   Suppose 
ARG  =  ' (P  (1)  (2)  (3)).   Then   CRACK ( '  (T  X  Y  Z) ,  ARG) 
would  be  true  and  would  set  the  values  of  T  to  'P,  X  to  '{1), 
Y  to  •  (2)  ,  and  Z  to  '  (3)  . 
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If  we  had  said  TYPE  X  =  INTQ;  TYPE  Y  =  INTQ;  TYPE  Z=INTQ; 
the  assignments  would  beT='P,   X=l,  Y=2,  and  Z  =  3. 
If   ARG2  =    ' (P  XI  3  4)  then   CRACK  ('  (T  X  Y  Z) ,  ARG2) 
would  be  false. 

Suppose  we  want  to  do  addition  by  means  of  a  PE. 

We  could  have  a  predicate  ADDSUP (X ,Y,SUM)   which  is 

true  if   X  +  Y  =  SUM.   If  X,  Y   and   SUM  are  all  numbers, 

say  1,  2,  5,  then  a  PE  associated  with  ADDSUP  would  be  called 
with  (ADDSUP  (1)  (2)  (5))  as  its  argument. 

We  could  type  the  arguments  as  above.   Then  CRACK 

would  set  X=l,  Y=2,  Z=5.  So  the  addition  PE  would  be 


ADDSUP  =  PROC(PRED), 

IF  NOT (CRACK {• (T  X  Y  Z) ,  PRED) )  THEN  PRED 
ELSE  (X  +  Y)  EQ  Z  END; 
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3.5   Completions 

Suppose  we  had  a  negative  clause  n(P(x)  a  q(x)) 
and  resolve  away  the  P(x)  in  a  series  of  steps,  jf  x  receives  the 
final  value  f(g(a)),  we  may  summarize  the  closed  subtree  by 
the  positive  literal  P(f{g(a))). 

We  will  call  such  a  positive  literal  the  completion  of 
the  associated  negative   literal.   In  a  sense,  the  completion 
of  a  literal  is  a  lemma  of  the  proof.   The  lemma  procedure  of 
model  elimination  [  4  ]    finds  lemmas  in  this  way.  Since  each 
completion  is  a  new  unit  clause   implied  by  the  set  of  clauses, 
we  may  add  the  completions   to  the  original  set.   Furthermore, 
since  these  units  have  already  been  generated  by  the  proof, 
resolutions  involving  these  units  are  likely  to  be  useful. 
To  that  end,  when  we  produce  a  completion  we  enter  a  unit 
resolution  mode  attempting  to  produce  new  clauses  specialized 
to  the  problem.   For  example,  suppose  we  try  to  prove  two 
lines  equal  by  showing  that  corresponding  triangles  are  congru- 
ent.  When  we  remove  the  literal  for  convergence  we  may  resolve 
the  completion  with  clauses  of  the  form 

CONGRUENCE  ->  EQLINE 

CONGRUENCE  -*   EQARG 
to  derive  a  set  of  units  saying  that  corresponding  points  of 
congruent  triangles  are  equal.   Of  course,  completions  are 
able  to  generate  a  lot  of  additional  clauses.   In  the  imple- 
mentation a  number  of  processes  are  available  to  cut  down 
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completions.   These  processes  allow  us  to  associate  BALM 
procedures  with  predicate  symbols.   Whenever  a  literal  is 
completed  the  BALM   procedure  associated  with  its  predicate 
symbol  is  called.   This  procedure  may  return: 

(1)  TRUE   —  add  the  completion  to  the  input  clauses 

(2)  FALSE  —  don't  add  it 

(3)  A  list  of  names  of  other  clauses  —  the  system 

will  do  unit     resolutions  with  these  clauses  and  any  of 
their  descendants  produced  by  this  or  earlier  completions. 

3.5.1.   Completion  Syntax 

The  statement 

<proc>  COMPLETES  <pred>; 
causes  procedure  <proc>  to  be  called  when  a  positive  unit 
with  the  predicate  symbol  <pred>  is  produced.   The  procedure 
receives  the  unit  as  the  argument.   The  procedure  may  return 

(1)  TRUE  --  add  the  unit  to  the  positive  clauses 

(2)  FALSE  —  don't  add  the  unit 

(3)  A  list  of  names  of  theorems.   This   is  interpreted  to  mean: 

do  one  step  of  unit  resolution  with  the  unit 

on  each  of  these  theorems  and  on  any  dependents 

of  the  theorems  produced  by  this  or  earlier 

completions.   (An  empty  list  of  names  acts  like  FALSE). 

Effectively  completions  add  a  unit  resolution  component. 

When  completions  are  provided  each  clause  may  contain  literals 

of  the  form  (MARK  x) ,  where  x  is  a  literal  previously  resolved 

upon. 
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3.6.   How  to  Control  the  Search 

Clauses  are  selected   in  complexity  order  (lowest  merit 
first) .   The  procedure  COMPLEX (x)  computes  the  complexity  of 
the  list  of  literals  x. 

The  function  SELECTl(x)  returns  one  of  the  literals 
in  the  list  of  literals  x.  This  will  be  the  next  literal 
resolved  on. 

The  built-in  functions  COMPLEXITY  and  SELECTl  are 
defined  as 

COMPLEXITY  (x)-«-»-  number  of  symbols  in  x 
SELECTl  (x)    -f--^  return  the  hd  of  x. 
A  number  of  functions  are  provided  which  may  be  used  when 
writing  new  versions  of  these  procedures.   (Many  of  these 
functions  are  similar  to  standard  BALM  functions  but 
use  EQUAL  rather  than  EQ . ) 

DELETE (item, list)  returns  list  with  item  removed. 

changes  list  in  place. 
VARIABLE (item)  returns  true  if  item  is  a  variable 

e.g.  an  atom  which  is  not  a  constant 
LOOKUP  (item, list)  returns  the  value  associated  with 

item  on  list.  False  if  item  is  not 

on  list. 
MEMBER (it em, list)  returns  true  if  item  is  on  list 

SETPROP (id, prop-name, value)   sets  the  property  prop-name  of 

variable  id  to  value. 
POSLIT  OF  name  returns  a  copy  of  the  positive 

literal  of  a  clause  name. 
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Also  three  global  variables  are  of  interest  when  writing 

these  functions. 
NEGS  all  contexts  not  yet  resolved  on 

DONE  all  contexts  already  used 

NOTEQLIST  ground  pairs  known  not  to  be 

unif iable. 


3.7   Puilt-In  Equality 

The  clause 

REFLEX  ASSERT  EQl{x,x); 
is  built-in.   The  clause 

THEOREM  EQl(x,y)  FROM  EQ2(x,z)  A  EQ2(z,y); 
is  built-in.  EQl  and  EQ2  are  unif iable  (however  a  coercion 
must  be  used  in  the  unification) . 


3 .8     System  Parameters 

Users  may  wish  to  change  the  following  control  variables: 
print  each  resolvent  if  true 
print  each  negative  clause  before  finding 
possible  resolvents 
maximum  length  of  a  clause 
maximvuti  depth  of  a  clause  (0  is  the 
depth  of  an  input  clause) 

maximum  number  of  coercions  used  in  1  unification 
maximiom  complexity  value 
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CLAUSEPRINT 
NEGPRINT 

MAXLITS 
MAXLEVEL 

MAXCOERS 
MAXCPX 


MAXNEST 
DEBUG 


maxiirium  number  parentheses  of  a  clause 
If  true  the  system  will  print  intermediate 
results;  this  is  for  internal  debugging  of 
the  system  rather  than  of  DILEMMA  programs. 
However,  it  often  will  prove  useful  in  remov- 
ing some  of  the  trickier  bugs. 


3  S         A  Complete  Example  --  Missionaries  and  Cannibals 
Using  PE  Functions 

As  an  example,   we  will  give  a  program 
for   the    usual  missionary   and   cannibal  prob- 
lem.  Suppose  there  are  3  missionaries  and  3  cannibals  on 
one  side  of  a  river,  and  a  boat  which  holds  at  most  2  people. 
We  wish  to  find  a  sequence  of  moves  v;hich  gets  everyone 
across  the  river  without  ever  having  a  group  of  missionaries 
outnumbered . 

We  will  use  the  following  predicates. 
RIGHT  (c,m)  -<->  the  problem  may  be  solved  with  C  cannibals, 

M  missionaries  and  the  boat  on  the  right 
INRANGE(X)  -*-->  X    is  less  than  or  equal  to  the  number  of 

people  who  can  be  on  the  boat 
LTEl  (x,y)  *■■*   y.   <_  Y 
OK(C,M)     ■<-*-  it  is  OK  to  have  C  cannibals  and  M  missionaries 

together 
OKBOAT(X)   ■^-'-  0  <  X  <  2 
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LEFT(C,M)  ■("*   equivalent  of  right  with  C  cannibals, 

M  missionaries,  and  the  bota  at  the  left. 
BEST(X,Y)  -<-»-  a  heuristic  predicate 
EQL(x,y)   ■<->■  X  =  y 
and  the  following  functions: 
PLUS  (x,y)  f-^  X  +  y 
MINUS  (x,y)-<-»-  X  -  y 

The  DILEMMA  program  for  solving  this  problem  is  as 
follows: 

CONSTANT  0,1,2,3,4,5,6  END; 

RT   THEOREM  RIGHT (CX, MY)  FROM 

INRANGE(X)  A  INPANGE(Y)  A  LTEl(X,CX)  A  LTE1(Y,MY) 

A  0K(PLUS{MINUS(3,CX) ,  X),  PLUS (MINUS (3 ,  MY),  Y) ) 

A  OK  (MINUS (CX,X)  ,  MINUS (MY, Y)) 

A  OKBOAT(PLUS(X,Y))  A  LEFT (PLUS (MINUS (3 ,CX) ,X) , PLUS (MINUS (3 , MY) ,Y) ) 

A  BEST (PLUS (MINUS (3, CX)  ,X)  ,  PLUS (MINUS  (3 ,MY)  ,Y) )  ; 

LT   THEOREM  LEFT (CX, MY)  FROM 

INRANGE(X)  A  INRANGE(Y)  A  LTEl(X,CX)  A  LTEl(Y,MY) 

A  OK (PLUS (MINUS (3 ,CX) ,X) ,PLUS (MINUS (3 ,MY) ,Y) ) 

A  OK (MINUS (CX,X) ,  MINUS (MY, Y)) 

A  OKBOAT(PLUS(X,Y) )  A  RIGHT (PLUS (MINUS (3 ,CX) X) , PLUS (MINUS (3 , MY) ,Y) ) 

A  BEST  (MINUS ( 3, CX )  ,  MINUS (3 ,MY) )  ; 

INZERO  THEOREM  INRANGE(X)  FROM  EQL(X,0); 

INONE   THEOREM  INRANGE (X)  FROM  EQL(X,1); 

INTWO   THEOREM  INRANGE(X)  FROM  EQL(X,2); 

EQL     ASSERT   EQL(X,X); 
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TYPE  XV  =  INTQ;   TYPE  YV  =  INTQ; 
LTEl  PARTEVAL  PROC (PRED) ; 

IF  NOT(CRACK(=(T  XV  YV),PRED))  THEN  PRED  ELSE  XV  LE  YV  END; 
MINUS  PARTEVAL  PROC(X  FN), 

IF  NOT(CRACK(=(T  XV  YV),FN))  THEN  FN  ELSE  XV-YV  END; 
PLUS  =  PROC (FN) , 

IF  NOT(CRACK(=(T  XV  YV) ,FN) )  THEN  FN  ELSE  XV+YV  END; 
PLUS  PARTEVAL  PLUS; 

OKA  THEOREM   OK(C,M)  FROM  LTEl (C,M) ; 

0KB  ASSERT    OK(C,0); 

OKBOAT  THEOREM  OKBOAT(X)  FROM  LTl(X,3)  A  LT1(0,X); 

LTl  PARTEVAL  PROC (FN),  IF  NOT (CRACK (= (T  XV  YV) ,FN) )  THEN 
FN  ELSE  XV  LT  YV  END; 

*  BEST  ADJUSTS THE  HEURISTIC  VARIABLE  MERIT 
BEST  PARTEVAL  PROC (PRED),  BEGIN (  ), 

IF  NOT(CRACK(=(T  XV  YV),PRED)  THEN  RETURN  PRED, 
MERIT  =  -(XV  +  YV) ,  RETURN  TRUE 
END  END; 

*  THE  PROVE  STATEMENT 
PROVE (LEFT (3, 3) ) ; 


The  actual  run  of  this  example  produces  a  93  level  proof 
generating  some  678  resolvents. 
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3.10   Implementation  Outline 

The  information  in  this  section  may  be  viseful  for  writing 
fancy  PEs  and  CPROCs.    Internally,  a  clause  is  represented 
by  an  8  element  vtctor  called  a  context,  whose  elements  are: 

(1)  id  *Oxx  is  a  generated  name 

(2)  pointer  to  negative  parent 

(3)  pointer  to  literals  (as  a  tree  structre) 

(4)  length  in  negative  literals 

(5)  mixed  or  positive  parent 

(6)  special   bindings 

(7)  depth  of  clause  (0  is  an  input  clause) 

(8)  merit  (actually  complexity)  of  clause 

The  variables  in  a  clause  are  represented  by  niambers. 
Constants,  function  symbols,  and  predicates  are  heads  of  lists. 
Variables  are  not. 

3. 10 .1  Macros 

The  following  set  of  macros  is  provided  for  accessing  parts 
of  a  clause: 

(1)  NAMEOF (context)  -  name  of  the  clause 

(2)  NEGPAR (context)  -  returns  vector  pointer  to  parent 

(3)  LITLIST (context)  -  literals  in  internal  form 

(4)  CLENGTH (context)  -  length  in  terms  of  number  of  literals 

(5)  MIXEDPAR (context)  -  returns  vector  pointer  to  parent 

(6)  BINDING (context)  -  special  bindings 

(7)  DEPTHVAL (context)  -  depth  of  clause 

(8)  MERITVAL (context)  -  merit  of  clause 
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The  above  set  can  be  used  as  the  left-hand  side  of  an  assign- 
ment statement. 


3.10.2    Functions 

BIND(expl,exp2)  -  replace  expl  by  exp2  in  the  clause; retain 

this  if  expl  is  a  variable  other  than  an  x 
see  if  this  resolvent  or  an  earlier  parent 
had  an  assignment  for  this  variable  (returns 


iSBOUND(var) 


ISBOUND(var,c)   ■ 

GROUND (x) 
INPUTCL (context) 


true  or  false)  (sets  NBDVAL=binding  value  if 

found) 
similar  to  ISBOi;ND(var) 

but  starts   search  at  context  c 

true  iff  X  is  a  ground  item 

true  iff  context  is  an  input  clause 


3.10.3   Other  Details 

Three  global  variables  are  often  used  by  the  PE  programmer. 
CURCONTEXT  -  current  resolvent  in  packed  vector  form 
DEPTH  -  depth  of  curcontext; 

level  0  =  input  clause 
MERIT  -  merit  of  curcontext; 

"lowest  merit  first"  is  the  selection  rule. 

A  listing  of  the  system,  together  with  more  detailed 
information  on  the  implementation,  is  given  in  Appendix  I. 
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3.11      Dileimna   Syntax  Summary 


Basic  Objects 
names 
literals 

lists  of  literals 
procs 

predicate  symbols 
function  symbols 
constants 

contexts 


BALM  objects  of  type  identifier 

one  or  more  literals  separated  by  a 
BALM  objects  of  type  code 
BALM  objects  of  type  identifier 
BALM  objects  of  type  identifier 
functions  of  zero  arguments,  or 
(identifier,  in  input  form) 
vector  forms  of  clauses  (used  as  a 
internal  form) . 


Statement  Types 

(1)  DIFFERENT (x,y)       indicates  that  the  ground  items  x  and 

y  are  not  unifiable 

(2)  CONSTANT  x,y,z  END;   x,y,z  will  each  be  constants  and  are 

BALM  identifiers 

(3)  name  ASSERT  literal  defines  a  positive  unit  clause 

(4)  name  THEOREM  literal  FROM  list  of  literals 

defines  a  mixed  clause.  The  literal 
is  positive,  each  of  the  list  of 
literals  is  negative. 

(5)  name  COER  expl,exp2;  simple  coercion,  expl  is  equal 

(or  equivalent  to)  exp2 . 
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(6)  name  COER  expl,epx2,  list  of  literals 

compound  coercion,  expl  equivalent 
or  equal  to  exp2  under  conditions 
(list  of  literals) 

(7)  PROVE (list  of  literals);     last  statement  in  a  program. 

The  list  of  literals  is  taken  to  be 
a  negative  clause;  may  be  written 
as  PROVE (LIST (list  of  lits,  list 
of  lits,  ...,  list  of  lits)); 
if  there  is  more  than  one  initial 
negative  clause. 

(8)  proc  COMPLETES  predicate;     associates  the  procedure 

with  the  predicate  for  completions 

(9)  proc  CPROC  name;     The  procedure  <proc>  will  be  executed 

during  unification  before  the  COERcion 
<name>. 

(10)  pred  PART  i  =  proc;   pred  will  be  executed  after  computing 

the  resolvent,  provided  the  ith 
argument  of  the  predicate  is  still 
a  variable 

(11)  pred  PARTEVAL  proc;   proc  will  be  executed  just  after  the 

resolvent  has  been  computed. 

(12)  TYPE  var  =  proc;      proc  will  be  executed  just  before 

an  assignment  is  made  to  the  var  by 
CRACK. 
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Chapter  4 
The  Geometry  Program 

We  have  claimed  that  the  Dilemma  programming  language 
is  extremely  expressive,  and  that  complex  processes  may  be 
encoded  in  relatively  simple  ways.   In  order  to  illustrate 
the  use  of  Dilemma  and  to  give  some  evidence  in  support  of 
this  claim,  we  will  describe  a  program  which  produces  proofs 
for  a  small  subset   of  elementary  geometry  theorems.   The 
subset   includes  the  equality  of  angles   and  of  the  length 
of  lines,  the  parallelism  of  lines,  and  the  congruence  of 
triangles. 

Gelernter  [10]  wrote  the  first  program  which  could 
produce  proofs  for  geometry.   He  introduced  the  notion  of 
reasoning  backwards.   Here,  one  starts  with  the  theorem, 
replaces  it  by  the  conditions  which  imply  it,  and  then,  in 
turn,  replcjces   those  conditions  by  their  antecedents. 
This  process  is  continued  until  the  conditions  have  been 
replaced  by  axioms.   Backward  reasoning,  which  has  also  been 
called  "Goal  Directed  Reasoning",  is  always  used  by  Dilemma 
programs  except  when  a  completion  is  being  applied. 

Gelernter  also  introduced  three  major  heuristics.  Each  of 
these  involved  the  use  of  a  semantic  model.  The  program  was  given 
a  "picture"  in  the  form  of  coordinates  of  each  point.   In  the 
first  heuristic,  goals  would  be  rejected  if  they 
were  false  in  this  picture.   Additionally,  if  the  goal 
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contained  a  free  variable,  then  the  program  would  replace 
the  goal  by  the  set  of  instances  using  only  the  constants 
in  the  picture.   False  instances  would  immediately  be 
rejected.   This  pruning  heuristic  trimmed  the  search  tree 
from  1000  alternatives  at  each  stage  to  five.   Our  program 
will  allow  free  variables  to  remain  in  goals;  since  we  don't 
need  to  pick  particular  instances,  each  clause  will  represent 
a  number  of  different  alternatives.   The  rejection   heuristic 
would  be  successful  only  if  every  alternative  could  be 
rejected,  at  once.   It  will  turn  out  that  we  do  not  need  to 
use  an  analytic  geometry  model  to  reject  goals. 

The  second  use  of  a  model  was  to  evaluate  the  truth  of 
"self-evident"  statements.   Such  statements  include,  for 
example,  facts  about  the  ordering  properties  of  points  on  a 
line,  or  the  intersection  properties  of  lines  on  a  plane. 
If  the  statement  was  true  in  the  model,  it  was  assumed  "proved 
by  observation".   In  the  Dilemma  program,  these  "self-evident" 
truths  are  computed  by  partial  evaluation.   A  third  use  of  the 
model  was  to  identify  a  given  angle   or  line  with  all  of  its 
names,  and  to  assiame  equality  between  any  two  different  names 
of   the  same  object.   We  use  coercions  to  allow  the  alternative 
names  of  lines  and  angles  to  be  equivalent. 

The  second  major  heuristic  introduced  by  Gelernter  was 
a  point  construction  routine.   When  all  else  failed,  the  program 
would  pick  two  points  in  the  picture  and  draw  the  line  between 
them.   This  line  would  then  be  extended  to  all  of  its  inter- 
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sections  with  the  other  lines  of  the  picture.   Each  point  of 
intersection  would  become  a  new  constant.   Finally  the 
program  would  start  again.   Our  program  will  do  constructions 
by  unification,  a  way  which  v/e  believe  more  natural. 

Syntactic  symmetry  was  the   last  of  Gelernter's 
heuristics.   Here,  one  associated  a  function  a   with  each  model. 
Two  goals  would  be  considered  variants  of  each  other  if  a 
applied  to  the  first  gave  the  second.   The  program  would 
need  to  prove  only  one  variant  of  each  goal .   The  Dilemma 
notion  of  alphabetic  variant  is  certainly  much  weaker.   It 
is  not  clear   just  how  often  additional  clauses  could  be 
removed  if  syntactic  symmetry  had  been  included. 

Gelernter's  program  was  quite  long;  about  20000  lines 
of  code.   The  examples  Gl  through  G5,  which  we  will  describe 
below  were  all  solved  by  it.   Several  researchers 
attempted  to  clarify  how  these  heuristics  worked.   It  has 
been  felt  that  the  model  heuristics  were  highly  efficient, 
that  they  could  be  used  in  areas  other  than  geometry,  and 
that  they  were  necessary  to  backward  reasoning. 

Goldstein  [13]  wrote  a  program  for  geometry  theorem 
proving  based  on  Gelernter's.   Goldstein's  system  called 
BTP  (Basic  Theorem  Prover)  again  was  goal  directed.  He  tried 
to  develop  a  high-level,  "natural"  formalism  to  represent 
geometry  knowledge  as  programs.  He  introduced  the  idea  of 
canonical  naming.   Great  simplifications  would  result  if  lines 
could  have  unique  images.  His  system  worked  as  follows: 
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Points  could  be  ordered  by   their  position  in  a  diagram. 
Lines  would  be  denoted  by  storing  their  end  points  in 
increasing  order.   Angle  ABC  would  imply  that  A  was  less 
than  C.   Goldstein's  program  was  also  based  on  an  analytic 
geometry   model.   It  was  written  in  a  somewhat  modified 
MICRO-PLANNER.   Here,  the  simple  automatic  backup  mechanisms 
proved  to  be  an  obstacle.   First  it  was  necessary  to  program 
explicit  checks  for  duplicate  goals.   Second,   automatic 
backup  requires  that  any  search  be  bounded.   Thus  his  program 
could  not  create  new  points.   Finally  it  was  necessary  to 
give  up  completely  on  one  goal  before  trying  an  alternative. 
The  problems  GO  through  G4   were  solved  by  the  BTP  program. 

Goldstein  then  proposed  a  second  program  to  be  called 
PTP  (the  Plausible-move-generating  Theorem  Prover) .   This 
program,  which  was  not  actually  implemented,  would   do 
constructions  in  the  following  way:   VThenever  a  clause  involv- 
ing a  new  point  occurred,  a  plausible  construction  procedure 
would  be  used  to  find  a  new  point  meeting  the  conditions 
specified  by  the  clause.   Goldstein's  idea  was  that  a  special 
procedure  could  be  written  for  each  type  of  construction  and 
each  clause  that  introduced  a  new  point.   Unification  would 
select  the  correct  clause,  and  thereby  one  or  more  useful 
move  generators. 

Kevins  [28]  tried  to  clarify  the  use  of  a  model  by 
writing  an  additional  geometry  program.   He  argued  that  the 
essential  information  held  in  a  model  was  not  numeric;  in  fact. 
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that  it  was  the  canonical  ordering,  the  equivalence  of  names, 
and  information  on  what  looked  parallel.   His  program  ordered 
points  lexicographically.   No  diagram  was  required.   Nevins 
felt  that  the  use  of  a  model  had  forced  previous  researchers 
to  write  goal-directed  programs.   In  his  system,  he  included 
both  forward  and  backward  reasoning.   The  heart  of  his  technique 
was  a  separately  written  LISP  procedure   for  each 

paradigm  of  geometry.   This  program,  which  is  perhaps  the 
most  efficient  geometry  theorem  prover,  has  no  provision 
for  generating  new  points.   The  only  aspects  of  a  model 
which  are  used  are  nonnumeric.    There  is  a  list  of  lines 
which  look  parallel.   Our  own  system  is  highly  goal-directed, 
and  is  designed  to  construct  new  points  through  unification. 
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4 .1   Basic  Objects  and  Their  Intended  Meanings 

We  have  11  constants.   RTANG   and  STANG  represent 
constant  angles.   RTANG  is  90  degrees,  STANG  is  180°.   We 
have  nine  constants  intended  to  represent  points: 
E,  P,  K,  N,  M,  C,  D,  Q,  and  B.   We  will  introduce  a  total 
ordering  on  these  constants  byE<P<K<N<M<C<D<Q<B, 
This  particular  arrangement   is  produced  by  the  BALM  IFROMID 
primitive. 

Only  three  logical  functions  are  required.   The  first, 
L(X,Y)   is  intended  to  map  pairs  of  points  to  lines.   The 
second  A(X,Y,Z)  is   intended  to  map  triples  of  points  to 
angles.   Using  partial  evaluation  we  will  associate  canonical 
ordering  procedures  with  these  functions.   The  third  Skolem 
function,  MIDPT(X,Y)   is  intended  to  mean  the  point  midway 
between  X  and  Y. 

The  predicates  allowed  in  this  system  are: 

(1)  CONG(X,Y,Z,U,V,W)   «•   triangle  XYZ  is  congruent  to 

triangle  UVW 

(2)  EQLINE(S,T)        <►  the  length  of  line  S  is  equal  to 

that  of  line  T 

(3)  EQANG(X,Y)         •"■  the  size  of  angle  x   equals 

that  of  angle  Y 

(4)  PARALLGM(X,Y,Y,Z)   •"■  X,Y,U,V  are  the  corners  of  a 

parallelogram 
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(5)  COLIN  (X,Y,Z)       **   points  X,Y,Z  are  collinear  in  that 

order. 

(6)  PARALLEL  (S,T)       **   line  S  is  parallel  to  line  T 

(7)  DOWN(X,Y,Z,U,V,W)   «■  a  heuristic  predicate  defined  below 

(8)  DOWN30(X)  **   a  heuristic  predicate  defined  below 

(9)  DIFF3(X,Y,Z)       ■»•  X,  Y,  and  Z  are  distinct  points. 

4 .2    The  Logical  Axioms 

We  will  now  describe  the  clauses  containing  geometric 
information.   This  is  the  information  given  to  the  outer 
theorem  prover. 

Segment  Equality 

(1)  a  line  is  always  equal  in  length  to  itself. 
LREF  ASSERT  EQLINE (X ,X ) ; 

(2)  Two  segments  are  equal  if  they  both  equal  a  third. 
LTPANS  THEOREM  EQLINE (X,Y)  FROM  EQLINE (X,Z)  A   EQLINE (Z,Y) 

A  DOWN30 (X) ; 

The  in-c reduction  of  a  new  line  through  transitivity  is 
generally  a  poor  way  to  do  a   proof.   The  predicate  DOWN30  will 
make  a  clause  30  points  more  complex.   This  is  one  of  the  ways 
in  which  a  predicate  may  be  used  to  effect  the  search  strategy. 

(3)  Sums  of  equal  segments  are  equal. 
LPART  THEOREM  EQLINE (L (X,Y) ,  L(U,V)) 

FROM  EQLINE (L(X,R) ,  L(U,S))  A  EQLINE (L (R,Y) ,  L(S,R)) 
A  COLIN(X,R,Y)  A  COLLN(U,S,R) ; 
This  axioms  corresponds  to  the  following  picture: 
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X  R      Y 

XY  =  UV  if  XR  =  US  and  RY  =  SV 


U  S      V 

(4)  Corresponding  parts  of  congruent  triangles  are  equal. 
LONG  THEOREM  EQLINE (L (X, Y) ,  L(U,V))  FROM 

CONG(Y,Z,X,R,W,U)  A  DIFF3(X,Y,Z)  A  DIFF3(U,V,W) 

This  theorem  may  construct  new  points  Z  and  W.   The  DIFF3 
predicates  prove  that  these  added  points  really  form  triangles, 

(5)  The  sides  of  an  isosceles  triangle  are  equal. 
LISOC  THEOREM  EQLINE (L (X, Z) ,  L(Y,Z))  FROM 

EQANG(A(Z,X,Y) ,  A(X,Y,Z)); 

(6)  A  line  parallel  to  the  base  of  a  triangle,  which 
bisects  one  side,  bisects  the  other. 

LPARBASE  THEOREM  EQLINE (L(X,Y) ,  L(Y,Z))  FROM 

EQLINE (L (Z,W) ,  L(W,V))  A  PARALLEL (L (Y ,W) ,  L(X,V)) 
A  COLIN(X,Y,Z)  A  COLIN(Z,W,V) ; 


V 


if  YW  0  XV  and  ZW  H  WV  , 
then  XY  =  YZ 


(7)    Midpoints  bisect  lines. 

LMID  ASSERT  EQLINE (L (X,MIDPT (X,Y) ) ,  L (Y,MIDPT (X, Y) ) ; 

Additional  ways  in  which  lines  may  be  proved  equal  are  found 
ir  the  section  on  coercions. 
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Angle  Equality 

(8)  An  angle  is  always  equal  to  itself. 
AREFLX  ASSERT  EQANG(X,X); 

(9)  Two  angles  are  equal  if  they  both  equal  a  third. 

ATRANS  THEOREM  EQANG(X,y)  FROM 

EQANG(X,Z>  A  EQANG(Z,Y)  A  DOWI>i30(X); 

Again  we  will  use  DOWN30  to  lower  the  use   of  transitivity. 

(10)  Differences  of  equal  angles  are  equal. 

APART  THEOREM  EQANG (A (X, Y, Z) ,  A(V,R,I)  FROM 

EQANG(A(X,U,Y) ,  A(V,R,W))  A  EQANG (A (Y,U, Z) ,  A(W,R,T)) 
A  DOWN30(X)  A  COLIN (U, J, X)  A  COLIN(R,S,V) 
A  COLIN(Y,J,Z)  A  COLIN(W,S,T) 

^rry       ^^    -¥■   ^"2  =  4^WRT  and  -j^YUX  =  ^VRW 


R 


then 


^XUZ  =  -^ 


RT 


(11)  Corresponding  points  of  congruent  triangles  are  equal. 

ACONG  THEOREM  EQANG (A (X, Y, Z) ,  A(U,R,W))  FROM 

CONG(X,Y,Z,U,V,W)  A  DIFF3(X,Y,Z)  A  DIFF3 (U, V,W) ; 

Once  again  DIFF3  is  used  to  make  sure  that  we  have  two  triangles, 

(12)  The  base  angles  of  an  isosceles  triangle  are  squal . 
AISOSC  THEOREM  EQANG (A (X, Y, Z) ,  A(Y,X,Z)) 

FROM  EQLINE(L(X,Z) ,  L(Y,Z)); 
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(13)   Corresponding  angles  of  parallel  lines  are  equal. 

ACOR  THEOREM  EQANG (A (R, Y, X) ,  A(Z,X,J)) 
FROM  PARALLEL (L(W,R) ,  L(U,Z)) 
A  COLIN(W,Y,R)  A  COLIN(U,X,Z)  A  COLIN (Y,X, J) ; 


W       \    R 

if    WR  1  UZ. 


U 


then  2fRYX   =<^ZXJ 


(14)   Alternate  interior  angles  of  parallel  lines  are  equal, 

ALTERl  THEOREM  EQANG (A (X, Y, Z ) ,  A(U,Z,Y))  FROM 
PARALLEL (L (Y, X) ,  L(U,Z)) 


IF   XY  D  UZ   then 

„ 4 


^XYZ  =  ^UZY 


(15)   Vertical  angles  are  equal, 

VERTICAL  THEOREM  EQANG (A (X, Y, Z) ,  A(U,Y,W)) 
FROM  COLIN (X,Y,W)  A  COLIN (U,Y,Z) 


(16)   Two  right  angles  add  up  to  a  straight  line. 

RTEQ  THEOREM  EQANG (A (X, Y, Z) , RTANG)  FROM  EQANG (A (T, Y, X) , RTANG) 
^  A  COLIN(T,Y,Z) 

rh 


z 
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Congruence  of  Triangles 

(17)  A  triangle  is  always  congruent  to  itself. 

CREF  ASSERT  CONG(X,Y,Z,  X,Y,Z); 

(18)  Congruence  by  transitivity. 

CRANS  THEOREM  CONG (X, Y, Z, U,V,W)  FROM 
CONG(X,Y,Z,P,Q,R)  A  CONG (P, Q, R, U, V, W) 

'/'  ',  r 

A  DOWN(X,Y,Z,U,V,W) ; 

(19)  The  common  ways  to  prove  congruence,  side-angle-angle: 

CSAA  THEOREM   CONG (X, Y, Z , U, V, W)  FROM 
EQLINE(L(X,Y) ,  L(U,V))  A  EQANG (A (X, Y, Z) ,A (U, V,W) ) 
A  EQANG(A(Y,Z,X) ,  A(V,W,U); 

(20)  Side-side-side  ., 

CSSS  THEOREM  CONG (X, Y, Z , U, V, W)  FROM 
EQLINE(L(X,Y) ,  L(U,V))  A  EQLINE (L (Y, Z) ,  L(V,W)) 
A  EQLINE (L (X, Z) ,  L(U,W)); 

(21)  Side-angle-side 

CSAS  THEOREM  CONG (X, Y, Z ,U, V,W)  FROM 
EQLINE(L(X,Y) ,  L(U,V))  A  EQLINE (A (X, Y, Z) ,A(U,V,W) ) 
A  EQLINE(L(Y,Z) ,L(V,W)) ; 
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Congruence  is  independent  of  the  position  of  the   viewer, 
Thus  we  may  turn  the  page  over  or  around.   We  need  to 
include  generators  of  the  dihedral  group  to  allow  all 
possible  ways  of  proving  congruence. 

(22)  CPERM  THEOREM  CONG (X, Y, Z,U,V,W) 

FROM  CONG(Y,Z,X,V,W,U) ; 

(23)  CFLIP  THEOREM  CONG (X, Y, Z,U,R,W) 

FROM  CONG(X,Z,Y,U,W,V) ; 

(24)  The  diagonal  of  a  parallelogram,  divides  the 
parallelogram  into  two  congruent  triangles. 

CPARAL   THEOREM   CONG (X, Y, Z , X, U, Z)  FROM 
PARALLGM(X,U,Z,Y) ; 
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Parallel  Line  Theorems 

(25)   Two  lines  are  parallel  if  corresponding  angles  are  equal, 

PI  THEOREM  PARALLEL (L (X,Y) ,  L(U,V))  FROM 

EQANG(A(Y,Z,W) ,  A(V,W,R))  A  COLIN{X,Z,Y) 

A  COLIN(U,W,V)  A  COLIN(S,Z,W)  A  COLIN (Z,W,R) ; 


XY  i    VU 


(26)   We  must  also  include  the  case  in  which  the  cross  line 
doesn't  pass  the  parallel  lines. 

P2  THEOREM  PARALLEL (L (X, Z) ,  L(V,W)) 

FROM  EQANG(A(Y,Z,W) ,  A(V,W,S))  A  COLIN (Z  W  S) ; 


(28)   A  line  which  bisects  both  sides  of  a  triangle  is 
parallel  to  the  base. 

MIDPAR  THEOREM  PARALLEL (L(Y,U) ,  L(Z,V))  FROM 
EQLINE(L(Z,Y) ,L(Y,X) )  A  COLIN(Z,Y,X) 
A  EQLINE(L(V,U) ,  L(U,X))  A  COLIN (V, U, X) ; 

X 
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(28)   Two  lines  are  parallel  if  an  extension  of  one  is 
parallel  to  the  second. 

PEXT   THEOREM  PARALLEL (L(X,Y  ,  L(U,V)) 

FROM  PARALLEL (L{X,Y) ,  L(R,V))  A  COLIN (R, U, V) ; 


XY  i  UV  ->  XY  8  RV 


U  V 


(29)   Two  line  segments  are  parallel  if  a  contradiction  of  one 
is  parallel  to  the  second.   This  clause  is  required 
since  collinearity  implies  an  order. 

PBASE   THEOREM  PARALLEL (L(X,Y) ,  L(U,V)) 

FROM  PARALLEL (L(S,Y) ,  L(U,V))  A  COLIN (X,S,Y) ; 


X       S        Y 
J I I 


U  V 


XY  B  uv  -<-  SY  n  uv  . 


(30)   Two  lines  are  parallel  if  they  are  both  parallel  to  a  third, 

PTRANS  THEOREM 
PARALLEL (X,Y)  FROM  PARALLEL (X, Z)  A  PARALLEL ( Z , Y ) ; 

Since  lines  are  often  proved  parallel  using  transitivity, 
we  don't  need   to  include  DOWN30. 

These  30  clauses  represent  the  geometric  knowledge  given 
to  the  outer  theorem  prover.  In  any  particular  run,  only  a 
subset  of  these  clauses   is  used. 
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4.3   Coercicns 


The  inner  theorem  prover  is  given  the  following  coercions; 
Segment  equality: 

(1)  LFLIP  COER  L{X,Y),  L(Y,X); 

(2)  LSYM   COER  EQLINE(X,Y) ,  EQLINE(Y,X); 


Angle  equality: 

(3)  ASYM  COER   EQANG(X,Y),  EQANG(Y,X); 

(4)  Alternative  names  correspond  to  the  same  angle. 

ANAME  COER  A(X,Y,Z) ,  A(S,Y,R),  COLIN(X,S,Y)  A  COLIN (Z ,R,Y) ; 
,  X 


^  XYZ  =  .^ 


SYR 


(5) 


(6) 


ANAMEl  COER  A(X,Y,Z) ,  A(S,Y,Z),  COLIN (X, S,Y) ; 
^  Z 

XYZ  =   SYZ 


ANAME2  COER  A(X,Y,Z) ,  A(X,Y,R),  COLIN (Y, Z, R) ; 

X 


(7)    ANGR  COER  A(X,Y,Z) ,  A(Z,Y,X); 


Triangle  congruence: 


(8)    CSYM  COER  CONG(X,Y,Z,U,V,W) ,  CONG (U, V, W,X, Y, Z) ; 
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Each  coercion  was  used  in  every  run  of  the  theorem 
prover.   It  is  clear  that  the  separation  of  clauses  between 
inner  and  outer  theorem  prover  was  done  in  a  somewhat 
arbitrary  manner.   The  idea  was  that  facts  considered  to 
be  more  "obvious"  were  given  to  the  inner  theorem  prover. 


4 . 4    Coercion  Strategies 

We  use  CPROCS  to  associate   strategies  with  the 
coercions.   These  were  chosen  before  any  attempts  were  made 
to  prove  any  theorems.   The  strategies  were: 

LFLIP:     one  of  the  two  lines  had  to  be  ground  (i.e.  in  the 
line  L(x,y)  neither  x  nor  y  could  be  variables 

LSYM:      one  of  the  two  lines  had  to  be  ground 

ASYM:      one  of  the  two  angles  had  to  be  ground 

ANAME:     no  other  solutions  were  found  (i.e.  this  coercion 
could   only  be  used   if  no   unifiers 
had  been  found  either  using  previous  coercions  or 
in  the  standard  way) 

ANAMEl:    no  other  solutions  were  found 

ANAME2 :    no  other  solutions  were  found 

ANGR:      no  other  solutions  were  found 

CSYM:      no  other  solutions  were  found 

Only  one  level  of  coercion  could  be  used  inside  unification 
(MAXCOERS  =  1) . 

These  coercions  are  intended  to  "undo"  the  effects  of  canoni- 
cal ordering.  The  ordering  is  itself  done  by  partial  evaluation. 

The  ordering  scheme  is: 
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variables  <  points  <  logical  functions 
Variables  are  represented  by  numbers .   Thus  any  two 
variables  have  an  induced  ordering.   The  BALM  IFROMID 
function  is  used  to  order  points. 

L(X,Y)   is  ordered  so  that   X  <  Y 
A(X,Y,Z)  is  ordered  so  that  X  <  Z 

The  use  of  canonical  ordering  is  the  major  factor  in  the 
effectiveness  of  this  program.   A  clause  represents  the 
entire  set  of  preimages  of  the  canonical  form.   Often  this  could 
be  as  many  as  64  different  alternatives  (a  clause  mention- 
ing 6  lines).   Almost  all  resolvents  thus  become  duplicates. 
The  com±>ination  of  canonical  ordering  and  coercion  does  a 
huge  amount  of  tree  pruning  without  removing  completeness. 

It  is  interesting  to  note  that  we  are  using  lexical 
properties  rather  than  position  in  a  model  to  order  items. 
One  of  the  uses  of  a  model  in  Gelernter's  scheme  is  thus 
unnecessary  here. 

Another  "model"  property,  the  evolution  of  "self- 
evident"   truths  is   done  by  partial  evaluation.   We  may 
reject  any  clause  containing  an  instance  of  L(X,X)  or 
A(X,Y,X) ,   since   two  distinct  points  are  required  for  a  line 
and  three  for  an  angle.   The  predicate  COLIN  is  partially 
evaluated.   We  have  a  list  of  all  points  which  are  collinear 
in  the  original  problem.   COLIN  applied  to  three  points 
simply  checks  if  the  points  are  on  this  list.   Skolem  functions 
such  as  MIDPT  add  new  elements  to  this  list.   The  DIFF3 
predicate  is  also  evaluated. 

-101- 


4.4.1  The  Major  Heuristics 

Several  predicates  and  functions  are   used  to  compute 
heuristic  information. 

L(X,Y)  **     if  X  and  Y  are  variables   increase  the 

complexity  of  a  clause  by  10 
DOWN30  ■*♦   increase  the  complexity  of  a  clause  by  30 
DOWN  **      if  any  of  the  arguments  of  the  predicate 

are  variables   increase  the  complexity  of 

a  clause  by  30. 

The  complexity  of  a  clause  is  computed  in  the  following  way. 

4.4.2  Complexity  Function 

(1)  complexity  starts  at  zero 

(2)  If  the  clause  was  produced  by  resolving  with  a  special 
hypothesis  of  the  problem/  lower  the  complexity  by  50 

(3)  For  each  literal  which  is  unifiable  with  a  special 
hypothesis,  lower  the  complexity  by  20; 

for  each  other  literal,  increase  the  complexity  by  10 

(4)  Add  twice  the  number  of  variables  in  each  literal 

(5)  Add  20  for  each  CONG  literal 

(6)  Add   5  for  each  nonground  literal 

(7)  For  literals  which  have  PE ' s  associated  to  their  predicate 
don't  use  3-6;   instead  add  5  +  4  *  number  of  variables 

(8)  Reject  clauses  with  more  than  3  PARALLEL  predicates 

(9)  Reject  clauses   longer  than  10  literals. 
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4.4.3    Actual  Input 

Actual  input  to  the  program  consists  of 

(1)  the  special  hypotheses  of  the  problem 

(2)  a  list  of  collinear  points  as  the  value  of  the 
variable  COLINER 

(3)  a  list  of  the  names  of  the  special  hypotheses 

(4)  the  initial  goal  to  be  proved. 
For  example  the  G2  problem  input  is: 


K 


HI:  ASSERT  EQLINE (L (P,R) ,L (N,M) ) ; 

H2:  ASSERT  PARALLEL (L (P,K) ,L (M,N) ) ; 

COLINER  =  NIL;         ,  :  ; 

HYP  =  (H1,H2) ; 

PROVE (EQLINE (L(P,M) ,L(K,N)) ; 


A  somewhat  more  elaborate  problem  is  G5 : 


HI:  ASSERT  PARALLEL (L (K,C) ,L (E, D) ) ; 
H2:  ASSERT  EQLINE (L (E,N) ,L (N,C) ) ; 
H3:  EQLINE (L (K,M) ,  L(M,D)); 
HYP  =  •  (HI  H2  H3) ; 


COLINER  =  •  (  ((E)(P)(K))  (  (K)  (P)  (E)  )  (  (P)  (N)  (M)  )  (  (M)  (N)  (P)  ) 

.   ((K)(Mf(D))  ((D)(M)(K))  ((E)(B)(D))  ( (D) (B) (E) ) 

((C)(M)(B))  ((B)(M){C))  ((E)(N)(C))  (  (C)  (N)  (E)  )  )  ; 
PROVE (EQLINE (L(E,P) ,  L(P,K)); 
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4.5 


IT^e  recmetxY  prccram  wiiicfc.  we  have  described  iz.  -rie 

ssactly  one  pcini^.   Given  •th-Ls  fac~,  a  prccxam  cculd  i-.-crG- 
±:x:&   2.  zew  ccint.  defi-ec  as  the  inter sectic-  tf  =  pa:.r  zf 
lir.es.   Zr.  t±::L=  sec-iicr.,  we  ttlII  shew  hew  ::hds  fact,  aiay  he 

;~e  pcssihle  way  tc  i-.ccrpcrate  this  inrcrr.at.ir- 
woxilr  ce  rr  '^se  =r  axiomatic  approach.   Here,  we  wculd 

apprcach  leads  tc  verj  aianv  new  cla:ises .   T!hese  represent. 
indornia"tion  cf  a  very  different  nat:zre  frm  zhar  ;_r  rhe 

rcrrespcnding  sides  are  eq^ial.     Unhil  rev  ve  have 


earity  entirely  by  partial  eval-eaticns;   we  chcse  -z   er.zzd-: 
-zz:ls   new  fact,  in  the  seme  way. 

write  <?-,?,■:;>  Trhen  we  wish  tc  represenr  an  -irj^ei 
point  en  -he  line  joining  ?  and  Q,  with  rhe  rrfer  : 
being  P,Q,X-  P  V 

Q 
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Similarly  <I,P,Q>   rfill  represent  a  point  inside  the 

segment  PQ: 

^^*>~^^^   <I/P/Q>  is  on  this  segment 
Q 

Next  we  introduce  a  six  place  logical  function 

INTER (TyPEl,TYPE2,Pll,Pl2,P21,P22) 
This  will  represent  the  point  which  is    both  of  the  triples 

<TYPE1,P11,P12> 

and 

<TYPE2,P21,P22>  . 

If  the  lines  Pll  P12  and  P21  P22   are  parallel  then  INTER  will 
be  undefined. 

The  use  of  INTER  raises  a  new  issue:   that  of  multiple 
names  for  the  same  point,  e.g.  in  the  picture: 


INTER(R,R,P,Q,R,Q)  is  also  called  Q. 
R 


We  will  therefore  associate  a  partial  evaluator  with  INTER, 
which  will  reduce  INTER  of  6  constants  to  a  point  name 
when  this  is  possible.   Of  course  we  will  need  a  coercion  to 
unevaluate  INTER.   This  coercion  will  allow 

INTER (R,X,P,Q,y,Z)   to  unify  with  a  point  B 
with  the  added  conditions: 

X  =  R  A  COLIN(Y,Z,B) 
or 

X  =  I  A  COLIN(Y,B,Z) 
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The  COLIN  predicate  needs  to  be  changed  as  well. 
COLIN (P,Q,X)   evaluates  to  TRUE  with  the  condition 

X  =  INTER(R,U,P,Q,R,W) 

COLIN (P,Q, INTER (R, U, B, E, V, W) )   evaluates  to  true  with 

the  conditions   U=R,   V=P,   W=Q,   PQ    not  parallel 
to  BE. 

The  most  pronounced  change  added  to  our   system  is  the 
need  to  detect  when  lines  are  not  parallel.   To  resolve  this 
we  will  introduce  additional  information  from  the  diagram.. 
We  wish  to  point  out  that  this  is  still   nonnumeric  informa- 
tion.  We  will   give  the  program  a  list,  each  of  whose  elements 
will  be  a  list  of  line  segments.   The  interpretation  will  be 
that  any  two  segments  which  are  on  the  same  list   "look 
parallel".   The  program  will  not  attempt  to  construct  a 
point  as  the   intersection  of  two  lines  both  of  which  are 
on  the  same  list.   Being  on  the  same  list  will  not  be 
sufficient  to  prove  parallelism.   It  will  however  be  suffi- 
cient to  prevent  constructions.   We  introduce  a  new  PE 
predicate   CROSSES (X,Y,U,V)  **   XY   does  not  look  parallel  to  UV. 

Finally  we  want  to  add  two  new  clauses.   Since  the 
coercions  are  present,  these  clauses  are  not  necessary  for 
completeness,  yet  they  increase  the  efficiency.   Both  clauses 
will  state  that  a  line  is  parallel  to  a  subsegment   bounded 
by  a  second  line. 
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PCRl  THEOREM  PARALLEL (L (X, INTER (TP1,TP2 ,U,V, X, Z) ) , 

L(X,Z))  FROM  CROSSES (X,Z,U,V) ; 

PCR2  THEOREM  PARALLEL (L(X, INTER (TPl ,TP2 , X, Z ,Y,V) ) , 

L(X,Z))  FROM  CROSSES (X,Z,U,V) ; 


These  clauses  state  that 
XI  is  parallel  to  XZ, 
where  I  is  the  intersection 
of  UV  and  XZ. 


A  sample  input  to  the  extended  geometry  program  is  the 
following: 

Given  the  problem  ,  ,   . 


Special  hypotheses    KC  0  ED,   EN  =  NC,   KM  =  MD 
Prove  EP  =  PK 

Computer  Input: 

HI   ASSERT  PARALLEL(L(K,C) ,L(E,D) ) ; 
H2   ASSERT  EQLINE(L(E,N) ,L(N,C) ) ; 
H3   ASSERT  EQLINE(L(K,M) ,L(M,D) ) ; 
[continued] 
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*  list  of  names  of  special  hypotheses 
HYP  =  =  (HI  H2  H3) ; 

*  list  of   collinear  points 
COLINER  =  (((E)(P)(K))   ( (K) (P) (E) ) 

((P)(N){M))  ((M)(N)(P)) 
((K)(M)(D))  ((D)(M)(K)) 
((E)  (N)  (O)  ((C)  (N)  (E))  ); 

*  list  of  lines  which  look  parallel 
LOOKSP  =  '  (  (  (K  C)  (N  M)  (P  M)  (E  D)  )  )  ; 

*  list  of  alternative  names 
PNAMES  =  •  ( ( (R  R  K  P  D  E)  E) 

(  (R  R  C  N  D  E)  E) 
(  (I  R  E  K  M  N)  P) 
(  (I  I  E  C  P  M)  N) 
(  (R  R  E  D  K  M)  D)  )  ; 

*  finally  the  prove  statement 
PROVE (EQLINE(L(E,  P) ,  L(P,K)); 

The  next  chapter  contains  the  results  of  running  both 
the  original  and  the  extended  geometry  program  on  a  number 
of  simple  problems. 
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CHAPTER  5 


EXPERIMENTAL  RESULTS 


In  order  to  test  the  effectiveness  of  the  programs 
described  in  Chapter  4,  we  performed  a  number  of  experiments. 
We  chose  six  different  geometric  problems,  and  did  a  number 
of  variations  of  each.   In  this  chapter,  each  of  these 
experiments  is  analyzed  in  detail.   For  each  problem  we 
will  give  a  picture,  and  a  list  of  axioms.   We  will  show 
the  refutation  tree  and  indicate  where  the  coercion  scheme 
eliminated  resolutions. 

The  six  geometric  problems  which  we  named 
G0,G1,G2,G3,G4,G5   have   all   been  proved 
previously  by  machine. 

GO,  the  simplest  of  the  problems,  was  introduced  by 
Ira  Goldstein  [13],   Problems  Gl  through  G5  are  due  to  Gelernter 
[10,11].     Examples  GO  through  G4  were  run  with  the  basic 
system.   Variations  of  G5  were  run  with  both  the  basic  and 
extended  system. 


5.1   The  GO  Problem  (Problem  32,  June  1969,  N.Y.  State  Regents) 

Given  segment  MPQN  with  MP  =  QN  and  angle  KPQ  =  angle  KQP 

prove  that  segment  MK  =  segment  KN.  , ,; 

K 


To  specify  the  input  to  this  problem,  we  must  first 
indicate  which  clauses  and  coercions  were  used. 


Coercions : 


ANGR 


ANAMEl 


ANAM2 


CSYM 


LSYM    j 


ASYM 


FLIP 


alternative  names  of  angles  are  equivalent 


CONG,  EQLINE,  EQANG  are  symmetric  relations 


the  line  XY  is  equivalent  to  the  line  YX 


Clauses ; 


AST       two  angles  are  equal  if  both  are  straight 
APART     parts  of  equal  angles  are  equal 


ATRANS 


AREFLX 


angle  equality  is  transitive  and  reflexive 


LISOC     sides  of  isosceles  triangles  are  equal 

LCONG     corresponding  sides  of  congruent  triangles  are 

equal 
CSAS      congruence  by  side,  angle,  side. 


Input; 


HI   ASSERT  EQANG(A(K,P,Q) ,  A(P,Q,K)); 

H2   ASSERT  EQLINE (L(P,M) ,  L(N,Q)); 

HYP  =  ■ (HI  H2)  ; 

COLINER  =  •  (  (  (M)  (P)  (Q)  )  (  (P)  (Q)  (N)  )  (  (M)  (P)  (Q)  (N)  ) 

((Q)(P)(M))  ((N){Q)(P))  ((N)  (Q)  (P)  (M))  ); 
PROVE  (EQLINE (L (K,M) ,  L(K,N))); 
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Total  input:  8  coercions,  9  clauses. 

The  proof  required  a  total  of  44.7  seconds,  during 
which  time  35  resolvents  were  generated.  Figure  4  shows 
the  search  tree.   12  clauses  were  selected  for  resolution.  Each 
node  is  a  clause  nuit±)er.  The  dark  line  indicates  the  proof  path. 
The  proof  requires  8  out  of  the  12  selected  clauses.  While  a 
great  deal  of  the  selectivity  is  due  to  the  limited 
number  of  clauses,  the  accuracy  is  quite  surprising. 
Figure  ^  shows  the  refutation  tree.   The  proof  corresponds 
to  some  23  resolutions   in  a  standard  resolution  prover. 
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The  critical  factor  in  this  run  of  GO  is  that  there 
are  few  unnecessary  input  clauses.   To  test  the  robustness 
of  the  system  we  ran  the  following  variations. 

GO.l 

All  the  8  coercions  and  9  clauses  of  GO 

plus  the  clauses 

AVT  •"■  vertical  angles  are  equal 

LREF  «■   line  reflexivity 
GO.  2 

All  8  coercions  and  11  clauses  of  GO.l 

plus  the  clauses 

ALTER  ■»■  alternate  interior  angles  of  parallel  lines  are 

equal 
CSAA  **     congruence  via  side,  angle,  angle 

The  resultant  timings  to  find  the  proof  were: 

GO  44.7  seconds  35  clauses  generated 
GO.l  45.6  seconds  35  clauses  generated 
GO . 2   52.3  seconds    ^  40  clauses  generated 

Each  of  the  three  runs  produced  the  same  proof. 
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5.2   The  Gl  Problem  (Gelernter,  Problem  1) 

Given  that  angle  KPN  =  angle  NPM,  and  that 
angles  PKN  and  PMN  are  both  right  angles, 
prove  that   segment  KN  =  segment  NM. 


^   N 


Input  to  the  theorem  prover  consisted  of  the  8  coercions  used 
for  GO  plus  the  following  clauses: 

AST      straight  angles  are  equal 

APART    parts  of  equal  angles  are  equal 

ATRANS  ] 

\   angle  equality  is  transtivie  and  reflexive 
AREFLEXJ 

LREF     line  equality  is  reflexive 

LISOC    sides  of  an  isosceles  triangle  are  equal 

LCONG    corresponding  sides  of  congruent  triangles  are 

equal 
CSAA     congruence  by  side,  angle,  angle 


CSAS 


congruence  by  side,  angle,  side, 


Only  LCONG,  CSAA,  LREF   are  used  in  the  proof. 
The  special  input  for  Gl  was: 


HI   ASSERT   EQANG(A(K,P,N) ,  A(N,P,M)); 
H2   ASSERT   EQANG (A (P,K,N) ,  RTANG) ; 
H3   ASSERT   EQANG (A (P,M,N) ,  RTANG); 


[continued] 
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HYP  =   •  (HI  H2  H3) ; 

COLINER  =  NIL; 

PROVE (EQLINE (L (K,N) ,  L(N,M)); 
Gelernter's  system  took  approximately  25  seconds  to  produce 
a  10  step  proof   which  is  equivalent  to  the  resolution  proof. 
The  seven  step  coercion  proof  required  some  86.5  seconds 
selecting  12  clauses  and  producing      58  resolvents. 
Gelernter's  program  was  run  on  a  7090  while  the  Dilemma  system 
runs  on  the  considerably  faster  CDC  6600.  At  the  top  level  the 
proof  consisted  of: 

EQLINE (L (K,N) ,  L(N,M)) 
\^-LCONG 
(5)   nC0NG(NXK  NYM)  V  "IDIFF  (K  N  X)  V  HDIFF  (M  N  Y) 

•  CSAA 
(8)   nEQLINE(L(NX) ,  L(NY))  V  HEQANG (A (KXN) ,  A (NYM) ) 

V  "1EQANG(A(XKN)  ,  A(YMN))  V  HDIFF  (KNX) 

V  nDIFF(MNY) 
LREF 

(35)  nEQANG(A(KXN) ,  A(NXM))  V  HEQANG (A(XKN) ,  A(XMN)) 

V  nDIFF(KNX)  V  nDIFF(MNX) 

(46)  nEQANG(A(PKN) ,  A(PMN)) 

\   ATRANS 

(52)  nEQANG(A(PKN) ,X)  V  HEQANG (X, A (PMN) ) 

\   H2 

(53)  nEQANG(RTANG,A(PMN) ) 

V  H3 
(58)   D 
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5.3   The  G2  Problem   (Gelernter,  Problem  2) 

Given  the  quadrilateral   PKNM  with  segment  PK  equal 
to  segment  NM  and  PK  parallel  to  NM,  prove  segment  PM 
=  segment  KN. 

P  K 


Inputs :   the  8  coercions  used  in  GO  and  Gl  plus 

ALTERl      alternate  interior  angles  of  parallel  lines  are 

equal 
AST         all  straight  angles  are  angle 

APART       parts  of  equal  angles  are  equal 

ATRANS  ]     angle  equality  is  transitive  and 

AREF  J       reflexive 

LREF        line  equality  is  reflexive 

LISOC       sides  of  an  isosceles  triangle  are  equal 

LCONG       corresponding  sides  of  congruent  triangles  are 

equal 
CSAA        congruence  by  side,  angle,  angle 

CSAS        congruence  by  side,  angle,  side 


HI   ASSERT  EQLINE(L(P,K) ,  L(M,N)); 
H2   ASSERT  PARALL  (L(P,K),  L(M,N)); 
PROVE (EQLINE (L (P,M) ,  L(K,N)); 

The  search  for  a  proof  selected  6 
clauses,     which  produced 20  resolvents.  The  proof  is  19 
levels  deep  for  resolution  and  6  levels  for  coercion.  The 
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coercion  system  found  the  proof  in  10.2  seconds.   This 
problem  is  by  far  the  easiest  of  all  the  geometry  examples. 
It  is  interesting  to  see  the  difference  in  performance 
between  our  system  and  Gelernter's  on  this  problem.   Since 
Gelernter's  system  did  not  have  Skolem  functions,  each  line 
segment  had  to  be  a  named  constant.   The  segment  PN  (the 
diagonal  line)  was  not  given  to  either  program.  Gelernter's 
program  after  about  a  minute   gave  up  on  this  problem, 
went  into  its  construction  phase,  added  PN,  and  then  after 
another  4  minutes   produced  the  proof.   Our  program  used  the 
MK  diagonal.   Constructions  such  as  PN  are  done  automatically 
in  our  system,  as  the  result  of   Skolem  functions. 

Another  observation  is  that  at  one  point  our  problem 
resolves   MK  f^  KM  with   X  =  X  via  the  coercion  MK  =  KM. 
This  is  redundant,  the  subtree  shows  that  we  could  just  as 
well  resolve   the  literal  away  with  a  unary  resolvent. 
Figure  6  gives  the  search  tree;  Figure  7  the  refutation 
tree  for  G2 . 
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LCONG 


Nodes  with  an  X  below  were  deleted 
as  duplicated, too  complex,  or 
by  PES. 


Figure  6.   Search  Tree  for  G2  Problem. 
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Figure  7.   Refutation  Graph  of  G2 

19  resolutions  vs.   6  coercions.   Sections  in  broken  lines  are 

done  by  the  inner  theorem  prover. 

PMt^KN 


PM=KN    V    PMf^NK    V    KNf^NK 


KN=NK 


PM=NK  V  nCONG(MNP  KPN)  V  HDIFF (PMN)  V  nDIFF(NKP) 

, '  '  I 

DIFF(PMN)  DIFF(NKP) 

CONG  (MNP    KPN)     V    MKf^KM    V    MKPf^KiyiN    V    KP?^MN 


MK=KM    V    MKf^MK    V    MKj^KM 
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KP=MN 
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5.4    The  G3  Problem 


Given  the  following  figure,  with  KM  =  MB,  and  angles 
PNK  and  MQB  both  equal  to  90  degrees,  prove  that  KN  =  BQ. 


Inputs:   the  8  basic  coercions  and  10  clauses  of  G2  as  well  as: 
VERTICAL  vertical  angles  are  equal 

RTEQ  two  right  angles  form  a  straight  angle 


HI  ASSERT  EQLINE(L{K,M) ,  L(M,B)) 
H2  ASSERT  EQANG (A(P,N,K) ,  RTANG) 
H3  ASSERT  EQANG (A(M,Q,B) ,  RTANG) 
COLINER  =  •  (  (  (P)  (N)  (M)  )  (  (N)  (M)  (Q)  )  (  (K)  (M)  (B)  ) 

((M)(N)(?))  ((Q)(M)(N))  ((B)(M)(K))  ); 
PROVE(L(K,N) ,  L(B,Q)) 

Gelernter  ran  this  problem  twice;  first  on  his  original 
system  which  produced  a  somewhat  redundant  proof  after  8  min- 
utes  and  then  on  an  extended  system  which  produced  a  proof 
after  1  minute.   The  extensions  consisted  of  two  heuristics. 
The  first  allowed  goals  to  be  expanded  out  of  order. 
Identities,  equalities  between  angles,  and  various  other  goals 
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could  usually  be  satisfied  in  one  step.   Gelernter's  heuristic 
gave  preference  to  such  goals.    The  second  heuristic  was  a 
complexity  measure . 

Our  system  solved  this  problem  in  4  .5  minutes .   It  found 
an  8  level  coercion  which  corresponds  to  a  20  level  resolution 
proof.   A  total  of  144  resolvents  were  generated  from  34  selected 
clauses.      The  complexity  ftinction  did  rather  poorly  here. 
For  comparison  we  give  the  complexity  value  for  each  resolvent 
in  the  proofs  for  Gl ,   G2,  and  G3. 


Gl 

G2 

G3 

Clause 

Clause 

Clause 

Value 

Value 

Val 

ae 

5    +75 

4 

+75 

4 

+75 

8   +66 

6 

+66 

24 

+66 

35   +46 

7 

+14 

51 

6 

46    -17 

16 

-38 

65 

+  33 

52   +47 

19 

-69 

67 

+77 

53    -69 

20 

—  oo 

140 

-13 

58 

141 
144 

-58 

—   00 

This  table  shows  that  the  complexity  measure  did  badly  in  G3 
on  clauses  65  and  67   which  accounts  for  the  large  amount 
of  time  necessary  to  find  the  proof.  Clause  67  consists  of: 

n (angle (K  N  M)  =  X  v  X  =  angle (M  Q  B) ) 

This  clause  was  produced  by  an  application  of  angle  transitivity 
which  is  given  a   penalty  each  time  it  is  used. 
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5.5   The  G4  Problem  "' 

Gelernter   introduced  additional  extensions  to  his 
program  in  1960.   The  first  of  these  extensions  allowed 
that  any  two  names  for  an  angle  could  be  recognized  as  equal 
solely  by  using  the  diagram.   The  second  extension  was  the 
point  generator  which  has  been  described  above.   Using  these 
extensions,  Gelernter 's  system  solved  the  G4  and  G5  problems, 
requiring  1  minute  on  G4  and  31  minutes  on  G5 . 
G4 


Given:  EP  =  PK 
EN  =  NM 
MC  =  CQ 
KD  =  DQ 


Inputs! 


¥ 


Prove ; 


NC 


PD 


the  8  coercions  and  12  clauses  of  G3  plus 
PSYM  GOER  PARALLEL (X, Y) ,  PARALLEL (Y,X) ; 
PARTRANS  parallelism  is  transitive 

MIDPAR  the  line  which  bisects  the  sides  of 

a  triangle  is  parallel  to  the  base. 
HI  ASSERT  EQLINE(L(E,P) ,  L(P,K)); 
H2  ASSERT  EQLINE (L (E,N) ,  L(N,M)); 
H3  ASSERT  EQLINE (L (C,Q) ,  L(M,C)); 
H4  ASSERT  EQLINE (L (K,D) ,  L(D,Q)); 
KYP  =  ' (HI  H2  H3  H4) ; 
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COLINER  =  '(  ((E)(P)(K))  ( (K) (P) (E) ) 
((E)(N)(M))  ((M)(N)(E)) 
((M)(C)(Q))  {(Q)(C)(M)) 
((K) (D) (Q))  ((Q) (D) (K))  ); 

PROVE (PARALLEL (L (N,C) ,  L(P,D)); 

The  proof  found  was  7  coercions  long,  and  corresponded  to  a 
20  level  resolution  proof.   A  total  of  331  resolvents 
were  produced  from  32  selected  clauses.      Total  time  was 
25.7  seconds. 


-124- 


^99)   ^7)   (259   (^3ji)      ^31' 


Figure  8.  G4   Search  Tree.    Only  nodes 

which     have  complexity  42  or  less 
are  shown . 
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5.6   The  G5  Problem 


^V      ^'\^ 

/ 

^x^^'    \ 

P 

/- 

/  ^\  \ 

E  ^ 

/       \\ 

B 

Given: 

EN 

=  NC, 

KM 

=  MD,   KC  1  ED 

Prove : 

EP 

=  PK 

The  G5  problem  occurs  in  two  variations.   In  the  first 
(G5.0)  we  specify  the  point  B  as  collinear  to  ED  and  that 
BM  =  MC.   In  the  second  version  (G5.1)  we  give  no  information 
about  B. 

G5.0   was  solved  with  the  following  inputs: 
8  coercions  as  before, 

4  special  hypotheses  and  10  additional  clauses: 
PEND        a  line  is  parallel  to  a  subsection 
PBASE       a  line  is  parallel  to  another  if  the  other 

is  parallel  to  a  subsection 
PEXT        a  line  is  parallel  to  its  extensions 
PARTRANS    parallelism  is  transitive 
MIDPAR,  ALTERl,  VERTICAL,  LCONG,  LPARBASE,   CSAA. 
The  proof  required  8  coercions  or  11  resolutions  and  was  found 
in  153  seconds.  The  search  reached  100  clauses  in  size. 

The  G5.1   problem  has  only  been  solved  by  Gelernter's 
extended  system.   The  necessary  construction  prevented  all  the 
other  geometry  programs  which  we  have  described  from  solving  it, 
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The  G5.1  problem  required  677  seconds  using  the  extended 
system.   571  resolvents  were  produced.  Figure  8  gives  the 
final  proof  tree.   The  proof  used  16  coercions,  or  27  resolu- 
tions, and  88  clauses  were  selected. 


LCONG 

CASA 

H3 

ALTER2 

PARI NT 

HI 

VERTICAL 


EP=PK 

G 

LPARBASE 

@ 

H3 

@ 

PARTRANS 

(34) 

H4 

(42) 

PARTRANS 

(48) 

MIDPAR 

(52) 

H2 

@ 

pcRi   y 

Figure  8.   Proof  of  G5.1 


Our  results  are  siammarized  in  Table  III. 


Problem 

Number  of  : 

Cnput 

Proof 

Final 

Pool 

Size 

Clauses 

Coercions 

Resolu- 
tions 

Coercions 

Clauses 

GO 

8         9 

8 

23 

13 

GO.l 

8        11 

8 

23 

14 

GO.  2 

8 

13 

8 

23 

16 

Gl 

8 

12 

7 

14 

58 

G 

8 

12 

6 

19 

7 

G3 

8 

15 

8 

20 

26 

G4 

8 

19 

7 

20 

103 

G5.0 

8 

14 

8 

11 

100 

G5.1  * 

8 

13 

16       27 

13 

*  Using  extended  system. 
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CHAPTER  6 


CONCLUSIONS 


6.1   Formalistic  Methods 

In  Chapter  1,  we  argued  that  there  were  two  basic 
approaches  to  AI  —  the  formalistic  and  the  intuitive. 
Perhaps  the  most  basic  implication  of  our  research  is  that 
formalistic  methods  may  offer  a  reasonable  alternative  to 
intuitive  schemes.   While  we  do  not  claim  that  formalistic 
methods  are  equal  in  efficiency  to  intuitive  ones,  our  results 
show  that  they  are  not  so  slow  as  to  preclude  their  use. 
In  fact,  the  added  clarity  of  a  formalistic  system  may 
make  it  more  useful.   We  have  given  a  uniform  proof  procedure 
and  shown  that  it  may  be  applied  to  group  theory,  logical 
puzzles,  and  geometry.   We  believe  that  any  intuitive  program 
which  could  solve  problems  in  each  of  these  diverse  areas 
would  be  very  awkward . 


6.2   Hierarchical  Theorem  Proving 

The  figures  in  Chapter  2  show  that  on  a  limited  set 
of  theorems,  hierarchical  theorem  proving  is  more  effective  than 
resolution.  The  basic  notion  of  replacing  the  requirement  of 
identity  with  proofs  of  equivalence  inside  unification  is  widely 
applicable.  While  we  have  only  used  it  in  Horn  clause  resolution, 
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Theorem  5   shows  that  it  could  be  used  in  any  Herbrand  type 
proof  procedure.  For  example  hierarchical  notions  could  be 
applied  in  linked  conjuncts,  model  elimination,  and  all  the 
other  unification  based  schemes. 

The  coercion  mechanism  may  not  be  the  best  way  to 
implement  Theorem  5.   We  expect  that  difference  operations 
as  used  in  GPS       could  be  significantly  more  effective. 
Or  one  could  allow  an  inner  theorem  prover,  which  contained 
an  algebraic  simplifier.   Certainly  the  notion  of  an  inner 
theorem  prover  could  be  extended  to  include  additional, 
even  more  internal,  theorem  provers. 


6. 3   Partial  Evaluation  and  Heuristics 

The  geometry  program  shows  that  partial  evaluation  is 
a  useful  adjunct  in  a  theorem  prover.   The  use  of  partial 
evaluation  changed  a  large  number  of  distinct  clauses  into 
the  same  canonical  form.   It  is  doubtful  if  the  geometry 
proofs  could  have  been  achieved  without  such  pruning.   At  the 
same  time,  we   saw  that  it  was  necessary  to  unevaluate  expres- 
sions.  The  hierarchical  method  allowed  just  the  sort  of 
unevaluation  which  was  needed.   We  believe  that  the  use  of 
coercion  suggests  a  reasonable  way  out  of  the  difficulties 
encountered  in  QA3  and  other  partial  evaluation  systems.  Also, 
the  use  of  predicates  to  set  heuristic  switches  was 
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very  useful.       Such  a  way  of  adding  heuristics  to  a 
uniform  proof  procedure  is  natural.    The   claim 
that  uniform  procedures  cannot  make  use  of  domain  dependent 
information  is  false. 


6.4   The  Geometry  Program 

Finally  we  come  to  the  most  immediate  conclusion  of 
this  research:   that  it  is  possible  to  use  a  resolution  type 
theorem  prover  to  solve  problems  in  elementary  geometry. 
When  we  began  this  work,  such  a  result  would  have  been 
considered  unlikely.  Many  AI  workers  seem  to  believe 
that  formal  theorem  provers  are   unsuitable  for  such  problems. 


6.5   Future  Possibilities 

The  completeness  theorem  given  in  Chapter  2 
states  that  two  level  theorem  proving  may  be  used  with  any 
set  of  clauses  which  has  a  refutation  tree.   The  Dilemma 
language  allows  only  clauses  which  are  in  Horn  form.   Horn 
sets  are  a  proper  subset  of  the  clauses  with  a  refutation  tree, 
as  shown  by  the  following  example. 


S  = 


P(a,x)  V  P(b,x)  V  ~lP(c,x)  V  np(d,x) 
~lP(a,x) 
nP(b,x) 

P(c,x) 

P(d,x) 
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This  set  is  unsatisf iable,  has  a  refutation  tree,  and 
cannot  be  renamed  into  Horn  clause  form.   We  will  now 
describe  a  splitting  algorithm  (Chang  [  5  ] ) ,  which  will 
change  an  arbitrary  set  of  clauses  into  several  sets  of 
Horn  clauses.   We  will  then  use  S  to  give  an  example  of  the 
use  of  this  technique.  ^   ' 

Chang's  Algorithm: 

Let  R=R,  UAvB  be  a  set  of  clauses. 

(1)  Prove  that  R,  u  a  is  unsatisf iable.  -       • 

If  there  were  n  distinct  occurrences  of  instances 

of  A  in  the  refutation   let  a,    . . .    o     be  mgus  such 

±      n 

that  the  ith  instance  of  A  is  Aa. . 

(2)  R  is  unsatisfiable   if  i    .>  t  > 

R-  u  B0,  u  Ba-,    ...  u  Bo   is  unsatisfiable. 
LIZ  n 

In  the  example,  let  A  =  P(a,x) 

B  =  P(b,x)  V  nP(c,x)  V  nP(d,x) 

R.=  S  -  A  V  B 

Step  1   consists  of 

■     M    P(a,x)  '   -  ■  ,<   ' 

-P(a,x)     P(c,x)  >   : 

.;•   -P(b,x)     P(d,x) 

which  allows  only  one  resolution,  uses  only  one  instance  of 

P(a,x),  and   involves  the  null  substitution  a. 

Step  2  requires  proving  that  R.  u  Ba   is  unsatisfiable. 
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This  is  a  standard  Horn  clause  problem  and  is  easily  solved. 

This  algorithm  could  be  implemented  by  writing  a 
program  which  does  the  splitting  and  then  calls   our  system 
in  order  to  solve  each  subproblem.   A  new  level  of  hierarchical 
structure  could  be  provided  by  modifying  our  system  to  produce 
the  refutations  of  subproblems  simultaneously. 

Dilemma  itself  could  be  extended  in  several  ways.  First, 
we  could  add      a  sense  of  time.   Mathematical  systems  are 
static;  once  proved,  a  theorem  stays  true.   In  many  situations, 
however,  the  truth  of  a  statement  changes  over  time.   For 
example,  to  a  robot  a  set  of  theorems  could  indicate  where 
things  are  in  the  current  environment.   As  objects  are  moved, 
these  theorems  would  change.   We  believe  that  a  dynamic 
component  could  be  added  to  Dilemma   in  a  way  that  would  m.ake 
it  possible  to  treat  robot  control  problems  conveniently.  Another 
extension  would  be  to  add  other  special  inner  theorem  provers. 
While  the  coercion  mechanism  works  well  for  the  equality  rela- 
tion, other  relations  such  as  partial  ordering  or  set  equality 
could  be  added.   An  open  question  is  whether  U-g  -resolution  can 
be  extended   in  efficient  ways  to  build  in  such  relations. 
We  expect  that  additional  information  about  problem  solving 
would  be  found  by  writing  other  programs   in  Dilemma.   For 
example,  a  program  which  does  symbolic  integration.   Here  a 
whole  new  class  of  heuristics  would  be  necessary.   Possibly 
an  inner  theorem  prover  which  knows  about  algebraic  simplifica- 
tion would  be  required.   Finally  we  could  build  special  hardware. 
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The  Dileituna  language  is  highly  parallel.  Perhaps  a  large  number 
of  micro  processors,  each  computing  a  generalized  resolution, 
would  lead  to  a  very  fast  Dilemma  machine. 

Considering  the  theorems  of  Chapter  2,  we  see  that  there 
are  a  number  of  unresolved  theoretical  issues.   What  happens 
to  completeness  when  the  refutation  graph  contains  cycles? 
Since  these  cycles  arise  from  merges,  can  we  restrict  how 
merges  occur,  for  example,  to  merges  on  only  certain  predicate 
symbols?      We    have  shown  that  the  sets  of  clauses  which 
are  characterized  by  input  proofs,  unit  proofs,  or  refutation 
trees  are  the  sama   These  are  the  easy  problems   for  a 
number  of  algorithms.       Can  we  generalize  this  to  a 
complexity  measure,  i.e.   an  unsatisfiable  set  of  clauses 
is  of  complexity  M  if  the  minimum  number  of  merges  (i.e.  *   * 
cycles  in  a  refutation  graph)  is   M?  (see  Kowalski  [23]). 

Finally,  as  we  pointed  out  in  Chapter  1,  our  work  is 
one  more  step  in  the  direction  started  by  McCarthy  toward 
building  programs  which  would  learn.   We  hope  that  the 
Dilemma  language  and  our  ideas  of  hierarchical  theorem  proving 
may  contribute  to  the  design  of  an  underlying  representation 
of  information  by  a  machine.   The  larger,  more  global,  question 
raised  by  our  work   is  how  a  machine  which  is  given  some 
instruction  can  transform  that  instruction  into  optimal 
Dilemma  procedures. 
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APPENDIX  I 
IMPLEMENTATION  DETAILS  AND  LISTING  OF  THE  COMPILER 


RENAME (LI, 1) 


NAMELIT(lit) 


The  implementation  is  divided  into  four  sections: 
basic  utilities,  input  parser,  unification,  post  unification. 
Basic  Utilities 

APPEND (LI, L2)       append  LIST  L2  to  LIST  LI 

LI  is  changed.  Result  is  in  the  new  LI. 
Ll  is  a  list  of  literals.  I  is  a  number. 
All  variables  of  Ll  are  renamed.  The  left- 
most variable  gets  the  name  I+l . 
does  the  renaming.  A  loop  in  RENAME  calls 
this  procedure. 

LOOKUP (item, list)   list  is  a  list  of  pairs  ( (x,y) (z, v) ) . 

If  item  is  equal  to  the  head  of  a  sublist, 

the  value  of  lookup  is  the  tail.  Bindings  are 

just  such  lists. 

Apply  binding  list  B  to  clause  C. 

Change  the  clause  in  place. 

Change  the  variables  in  a  clause  to  Zl, Z2 , . . . Z12 . 

DELETE (item, list)   Delete  11  copies  of  item  from  list. 

Change  list. 

Like  map  x  but  constructs  the  new  list  (in  place) 
ci   clause  vector.  Print  history  of  the 
deduction  of  ci. 

A  high  speed  version  of  the  BALM  copy. 
Apply  binding  list  B  to   literal  lit. 

SUBER (lit, item, replace)  Change  item  to  replace  in  literal. 
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SLB1(C,B) 


MAKNAME(cJ?.) 


MAPR(list,proc) 
PRINTHlST(cJl) 

COPX 
SUBINPLA(lit,B) 


Partial  evaluation  works  inside  out  (it  is  the  LISP  EVAL 
function) .  Some  tricks  are  done  with  the  variables  DEPTH  and 
MERIT.  They  look  like  global  variables  (but  are  actually  copies) . 

CLEARSYS   drops  the  BALM  system  (it  gets  about  7K  additional  space) 

RTM       is  the  run  time  monitor;  the  details  of  built-in 
equality  are  here. 

Input  Parser 

Mostly  input  is  a  set  of  macro  transformations.  REMCO 
(remove  comma)  changes  BALM  tree  structures  into  Dilemma  objects. 

Unification 

A  unifier  is  a  pair  (B,L) ;  B  =  binding  list, 
L  =  additional  literals  (added  via  coercions) 
PUSHUNIT   is  used  to  combine  two  unifiers 
MGUl       applies  a  coercion 

COPYPAIR   returns  the  pair  of  equal  or  equivalent  items  associ- 
ated with  a  coercion  (it  only  does  a  copy  if  the 
coercion  passes  the  possible  test) . 

Post  Unification 

If  completions  are  present,  clauses  retain  the  resolved 
literals. 

((PI)  (Q  1  2  ))   resolves  with  (P  (a)) 
to  give 

((MAPJC  (P  (a))  (Q(a)  2)) 
MARK  is  a  one  argument  "predicate"  taking  the  old  predicate  as  its 
argument.  (Many  places  in  the  code  attempt  to  bypass  marked  liter- 
als.) If  a  marked  literal  is  either  at  the  left  of  a  clause  or  next 
to  another  marked  literal,  its  completion  is  executed  and  the 

literal  deleted. 
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♦♦  DILEMMA  1ASTER  LISTING 

* 
♦ 
♦♦  SYSTEM  MACROS  DEBUGGING  TOOLS  AND  RELATED  ODDS  ANC  ENDS 

♦  ♦ 

**  IF  DEBUG  IS  TRUE  WE  PRINT  WHENEVER  A  DETAIL  STATtMENT  IS  PRESENT 

OETAIL(Xl)  ilEANS  IF  DEBUG  THEN  PRINT  (  »Xl»  XI ) } 

SETPR0P(X1»X2»  X3)  MEANS  SE TPROP Y ( X2» XI, X 3 ) ; 

SUBCOPY( X1,X2)  MEANS  SUB  1 NPL A ( C QPYC Xi ) >  X2); 

=X1=X2  MEANS  BREAKUP(=X1, X2) ; 

ATOM(Xl)  MEANS  -•PAIRC(Xl); 

FALSE  =  NIL; 

** 

♦♦       MACROS  TO  GET  PARTS  OF  CLAUSES  AND  LITERALS 

♦  ♦ 

*♦     EACH  CLAUSE  IS  REPRESENTED  BY  A  8  ELEMENT  ARRAY 

♦*  1  CLAUSE  ID  ,  ♦CXX  FOR  GENERATED  NAMES  (INPUT  CLAUSES  )  VIA  A  PROVE 

*♦         NUMbERS  FOR  RESOLVENTS 

♦*  2  PTR  TO  NEG  PARENT 

♦*  3  PTR  TO  LITERALS 

**  A  LENGTH  IN  LITERALS 

♦♦  ONLY  NEGATIVE  ATOMS  ARE  COUNTED 

♦♦  5  MIXED  OR  POSITIVE  PARENT 

♦♦  6  EXTRA  BINDINGS 

**  7  DEPTH  OF  CLAUSE  (0  IS  AN  INPUT  CLAUSE) 

♦♦  8  MERIT  OF  CLAUSE 

*♦ 

NAMEGF(Xl)  MEANS  XlCll  ; 

PREDSYM(Xl)  MEANS  HO  Xl; 

ARGLIST(Xl)  MEANS  TL  XI; 

FNSYM(Xl)  MEANS  PREOSYM(Xl); 

INPUTCL(Xl)  MEANS  I0Q(X1[I]); 

NEGPAR(Xl)  MEANS  XltZ]; 

LITLIST(XI)  MEANS  XlCil; 

CLENGTH(Xl)  MEANS  XICA]; 

MIXECPAP{X1)  MEANS  X1C5]; 

BINOINGS(XI)  MEANS  X1C6]; 

DEPTHVAL(Xl)  MEANS  X1C7]; 

MEPITVAL(Xl)  KEANS  X1C8]; 

♦  ♦ 

♦♦  GENERAL  UTILITY  PROGRAMS 

♦♦  COPIES  OF  BALM  UTILITIES  WITH  CHANGES 

♦♦  APPEND  IS  USED  TO  PUT  JNE  LIST  ON  THE  BACK  OF  A  SECOND 
♦♦  APPEND  WILL  CHANGE  ITS  FIRST  ARGUMENT 
APPEND=   PR0C(LIST1»LIST2), 
BEGIN(3), 

IF  -LISTl  THEN  RETURN  LIST2, 

IF  -LIST2  THEN  RETURN  LISTl, 

B"  LISTI»  WHILE  TL  LISTl  REPEAT  LIST1«  TL  LISTl, 

TL  LISTl"  LIST2,  RETURN  B 
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END  55 

END;  56 

ENAME-   PROC(CL,I0)>  '                      57 

BEGIN(NEWNAMES)*  58 

NEWKIAMES^NU^RETURN  MAPX(CL*  59 

NAMELIT)  &0 

END  61 

END;  62 

NAMELIT  PENAMES  THE  VARIABLES  IN  A  LITERAL  TO  NUMBERS  THE  LEFT  MOST         63 

VARIABLE  GETS  THE  VALUE  OF  ID  ,  ID  GETS  CHANGED                              6^ 

AMELIT-  PkOC(LIT),  65 

BEGIN(S)»  66 

IF  ATCM(LIT)  THEN  DO  67 

IF  -•(S"LOOKUP(LlTiNEwNAMES)  )  THEN  NEWNAMES*  (  LI  T «  {  S"ID»  IDtl  68 

) ) :NEWNAMES*  69 

RETURN  S  70 

END  >    TL  LiT«  MAPX(TL  LIT,NAMFLIT)  , RETURN  LIT  71 

END  72 

END}  .,      73 

OOKUP=   PROC(ITEM,LIST)»  T* 

BEGINO*  75 

WHILE  LIST  REPEAT  DO  76 

IF  EOUAL(HD  HD  LIST*  ITEM)  THEN  RETURN  TL  HO  LIST,  LIST=  TL        77 

LIST  78 

ENDf  79 

RETURN  NIL  80 

END  81 

END;  82 

UBl-     PROC(X,B),  83 

BE6IN(Y)f  8^ 

*  APPLY  BlNJDING  LIST  6  TO  X  85 

IF  -PAIRO(X)  THEN  RETURN  SUBINPLAiX,  B)*  86 

Y«X,  87 

WHILE  X  REPEAT  DO  88 

HO  X  »  SUBINPLA(HD  X  »  6),  X»  TL  X                                  89 

END,  90 

RETURN  Y  91 

END  92 

END  J  '                               93 

AKNAME»  PROC(CL),  ,   . .  i .     ■.                      g^ 

BE6IN(  NAMES, XVARS)f  95 

NAMES»NIL,XVARS*ZVARIA8L,CL  96 

■MAPX(CL, NAMED  97 

END  98 

ENDJ  99 

ELETE=   PROC(ITEM,LIST),  100 

BEGIN(B,E),  101 

6-NlLJLIST,  102 

LIST-  8,  ,,        '"-                                                                                    103 

WHILE  TL  LIST  REPEAT  DO  lOA 

IF  EQUALCITEM,  HD  TL  LIST)  THEN  TL  LIST-  TL  TL  LIST  ELSE          105 

LIST  •  TL  LIST  106 

END,  RETURN  TL  B  107 

END  106 
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END; 

MAPR"     PROC(ALIST,PRO)# 
BEGIN(L)* 

L«  ALIST,  WHILE  L  REPEAT  DO 
HD  L«  PRQ{HD  L)»  L«  TL  L 
END»  RETURN  ALIST 
END 
END; 
PRINTHIS«PRQC(CL)» 
BE6IN(J)> 
J=NIL* 
IF  SAVER  THEN  DO 

PRINT(»«NULL  CLAUSE  ***P),    RETURN  () 
END  * 
WHILE  CL  REPEAT  DO 

PRINT(NAMEQF(CL)»LITLIST(CL)»J)»  J«  MIXEDPAR(CL)»  CL»  NEGPAR 
(CL) 

»J«  NAMEQF(J) 
END 
END 
END; 
MAXl-     PRQC(A»B)f 

IF  A  6T  B  THEN  A  ELSE  B 
END; 
CSTK-MAKVECT0(20l) J 
QLDCCPY-  COPY; 
COPX-     PROC(Y)» 
BE6IN(IfK»X)* 

IF  Y  EQ  NIL  THEN  RETURN  Y, 
IF  INTQ(Y)  THEN  RETURN  Y» 
IF  IDO(Y)  THEN  RETURN  Y, 
IF  ■'PAIRQ(Y)  THEN  DO 

PR1NT(»«C0PY  PROBLEMS'**  Y),RETURN  OLDCOPY{Y) 
END* 

IF  -PAIRQ{Y)  THEN  RETURN  Y» 
K»l»I-3f CSTK[1]»HD  Y»  CSTKC2]*  TL  Y» 
WHILEtK  LT  I)  REPEAT  DO 

IF  PAIRC(X=  CSTKtK])  THEN  DO 

CSTKll]»K,CSTK[I+l]»HD  X,  CSTKCl+21*  TL  X» 
I-  1  +  3 
END> 
IF  PAIRQ(X«  CSTK[K-(K*1)1)THEN  DO 

CSTK[n=»K,CSTKtI*l]«HD  X*  CSTKCI+21-TL  X,  I«  1+3 
END* 
IF  I  6T  196  THEN  00 

COPYFAIL-  CQPYFAlL+1* 

K-X-NILJNIL* 

I»  Y*  WHILE  I  REPEAT  00 

X»  TL  X«  COPY(HD  I)«  NIL  »  I»  TL  I 
ENDfRETURN  TL  K 
END* 
K"  K  +  2 
END* 
FOR  K»(I-l,5,-3)  REPEAT 


-138- 


CSTK[CSTK[K-2]]«CSTKCK-l]iCSTKCK]>  163 

RETURN  CSTKCl]  :CSTK[2]  16^ 

END  165 

END;  '           166 

;UBINPLA=PROC(LIT»UNIF),  167 

BE6IN(U,L2),  ^                  16« 

IF  -LIT  THEN  RETURN  NIL*  169 

WHILE  -(U.UNIF)  «  UNIF  REPEAT  LIT-  SUbtR(LIT»HD  U  ,  TL  U»            170 

*  RETURN  (LIT)  171 

END  172 

ENDJ  173 

;UBER-    PROC(LIST,ITE«»REPLACE)#  17'. 

BE6IN(L2)»  175 

IF  EQUAL(  LIST,  ITEM)  THEN  RETURN  (REPLACE),  176 

IF  ATGM(LIST)  THEN  RETURN  LIST,  177 

L2-  TL  LIST,  WHILE  L2  REPEAT  DO  178 

HD  L?-  SUBER(HO  L2,IT6M  ,  REPLACE),  L2>  TL  L2  179 

END,  180 

RETURN  (LIST)  ,             181 

END  ':^           182 

END;  183 

♦  '■       '  ,              18<r 

*  INPUT  PARSER  "   -            185 

♦  '''  ■      '''-"•   ■                      186 

*  187 
NAMEl  IS  A  VARIATION  OF  NAMELIT.  HOWEVER,  VARIABLES  ARE  188 
REPLACED  BY  ELEMENTS  CF  A  LIST  RATHER  THEN  NUMBERS  189 

AMEl-    PROC(LIT),  190 

BE6IN(  S  ),  *^             191 

IF  -LIT  THEN  RETURN  NIL,  192 

IF  ATOM(LIT)  THEN  00  193 

S*  LOOKUP(LIT, NAMES),  IF  -S  THEN  00  19^ 

IF  -XVAPS  THEN  00  195 

PRlNT(-NAMEl,-XVARS,-EMPTY),RETAIN-FALSE,XVAkS«  196 

XVARIABL  197 

END,  198 

S«  HD  XVARS,  XVARS*  TL  XVARS,  NAME S« ( L i Tl S )  :  NAMES             199 

END,  200 

RETURN  S  201 

END,  202 

RETURN  HD  LIT:  MAPX(TL  LIT,  NAMED  203 

END  20<. 

END;  205 

EMB=     PROC(ITEM,ALIST),  206 

BEGINO,  207 

WHILE  PAIRQ(ALIST)  REPEAT  DO  208 

IF  EOUAL(ITEM,HD  ALIST)  THEN  RETURN  TRUE,  AL1ST=  TL  ALIST  209 

END,  210 

RETURN  ALIST  EQ  ITEM  211 

END  212 

END;  213 

EMCO«    PROC(X),  21^ 

BEGIN(XX,Y),  215 

XX»X,  216 
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IF  ATOM(XX)  THEN  DO 

IF  MPMBEP(XX, CONSTANT 

)  THEN  RETURN  LIST(XX)  ELSE  RETURN  XX 
ENO» 

IF  HD  XX  EQ  =   ^   THEN  DO 
ANDSW"  TRUE»  HO  XX-  -, 
END* 
IF  HO  XX  EQ  ^,    THEN  00 

IF  HO  HD  TL  TL  XX  EQ  -   *   THEN  00 

ANDSW  =  TRUE,  HO  HD  TL  TL  XX  «  », 
END, 

IF  HD  HO  TL  TL  XX  EQ  »,  THEN 

RETURN(REMCQ{HO  TL  XX)  i    RtfCQ(HO  TL  TL  XX)  ) 
ELSE  RETURN  (REMCOCHO  TL  XX):  RtMCQ(HO  TL  TL  XX)i  NIL) 
END, 
UHILE  XX  REPEAT  DO 

IF  HO  HO  XX  EQ  -   ^   THEN  DO 
HO  HO  XX»  =,  *ANDSW»  TRUE 
END,  ^ 

IF  HD  HO  XX  EQ  =,  THEN  DO 

Y»  HO  XX,  HO  XX-  HO  TL  Y,  TL  XX-(HO  TL  TL  Y)i  TL  XX 
END, 

HD  XX  -  REMCO(HD  XX),  XX=  TL  XX 
END,  RETURN  X 
END 
END; 
REMCOl-  PEMCOJ 
CONST  -   PROC(X), 
BEGINO, 

IF  ATCM(X)  THEN  CONSTANT 
-x:CONSTANT 
ELSE 
CONSTANT 

-  A PPE NO (REMCC(X), CONSTANT 

) 
END 
END} 
REMOCl-  REMCO; 

DIFFEREN  (XI, X2)  MEANS  NCTEQLIS-  (REMCQ(-Xl)  :  khMCQ(«X2))J  NOTEQLIS; 
BRACKET(=CONSTANT 
,100, -CONSTANT 

); 

CONSTANT 

XI 
END  MEANS  CONST(-Xl); 
INFIX  ("ASSERT,  1^51, 1<»5  0, -ASSERT); 

XI  ASSERT  X2  MEANS  MIX EOCL-GENCLAUS ( -XI, kEMOC 1( -X2 ) , NIL ) » MI XEDCL ) 
INF  IX (-THEOREM, 1501, 15 00,  =THM); 
INFIX  («FROM,  1^00,  l'»00,-FRM); 
INFIX  (-COER,  1^51,  l'.50,=C0ER); 
UNARY(-TYPE,100,-TY)} 

TYPE  XI  -  X2  MEANS  SETPROP ( -  XI, -TYPE  ,X2); 
FIXCO-    PROC(X), 
BE6IN(Y), 
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ANOSW  FALSE»  271 

Y>=(<EMCQ(X)»  IF  ATQMCr)  THEN  RETURN  Y»  272 

IF  -'ANCSW  THEN  RETURN  LIST(Y),  273 

RETURN  Y  27^. 

END  275 

END;  276 

INFIX(=  A  *     1^01»1^01»  =  *  );  277 

XI  THEOREM  X2  FROM  X3  MEANS  f1  IXtDCL  »  GENCL  AUi  (  -  Xl,REMCQ  (  •  X2)  ,  F  I  XCO  278 

(«X3)):  MIXEDCL  }  279 

XI  COER  X2*  X3  ^EANS  GENCaER(«Xl»RE«CGl( «X2)»REMC01(-X3)>NIL);  280 

XI  COER  X2»X3»X^  MEANS  GENCOER ( ^Xl » REMCU 1 ( =X2 ) » REMCOl ( »X3 ) » F IXCQ ( =X^ ) ) J  281 

PROVE(Xl)  nEANS  0TTER(«X1);  282 

INFIX(=C0HPLETE»i<.01*i'*00»=CPL)  ;  283 

INFIX<»CPROC»  UClf  1-^00, »CPRPC)  ;  284 

INFIX(«PART»iA01»1400»-PART)  ;  285 

INFIX(=PARTEVAL»14C1»U00,«PE)  ;  ,                286 

XI  COMPLETE  X2  MEANS  DO  287 

SETPRDP(»X2*«CMPL*XI),  CQMPLET  «  TRUE  288 

END;  ,  \.                   289 

XI  CPROC  X2  MEANS  DO  290 

SETPRDP(»X2*-CPR0C»X1)  291 

END;  292 

XI  PART  1  -  X?  MEANS  00  293 

PEFNS-  TRUE*  S£  I  PROP ( • XI, -PEl, X2 )  294 

END;                                 ,..  295 

XI  PART  2    *    tZ    MEANS  DO                  '  296 

PEFNS"  TRUE,  SET  PROP ( « X 1, « P £2, X2 )  .                       297 

END;  298 

XI  PART  3  •  X2  MEANS  DO  299 

PEFNS«  TRUE,  SETPR0P(«X1,»PE3,X)  '        '               300 

END;  301 

Xi  PART  4  »  X2  MEANS  DO  302 

PEFnS»  true,  SETPRQP(-X1,-PE4,X2)  303 

END;  304 

XI  PART  5  »  X2  MEANS  DO  305 

FEFNS«  TRUE,  SETPRQP ( »XI, «PE5, X2 )  306 

END;  307 

XI  PART  6  »  X2  MEANS  00  308 

PEFNS-  TRUE*  SET  PROP ( • XI,  « PE6,  X2 )  309 

END;  310 

XI  PARTEVAL  X2  MEANS  DO  311 

PEFNS-  TRUE,  SETPRQP(«X1,«PE,X2)  312 

END;  313 

♦  314 

♦  CODE  GENERATORS  315 

♦  316 

♦  GENCLAUSE  GETS  NAME  OF  CLAUSE,  POSITIVE  LlTtRAL,  AND  A  LIST  OF  317 

♦  NEGATIVE  LITERALS  AS  ITS  THREE  ARGUMENTS.  318 

♦  IT  CREATES  A  VECTOR  RESULT  319 

♦  NOTE  THAT  P£  DONT  GET  EXECUTED  HERE  NOR  DO  COMPLETIONS  OF  POSITIVE  320 

♦  UNITS  321 

♦  GENCLAUSE  ODES  NOT  RENAME  CLAUSES  TO  XVARS,  NOR  DOES  IT  CHECK  322 

♦  IF  A  CLAUSE  SUBSUMES  OR  IS  A  OUPLICATt  OF  AN  EXlSTIf^G  CLAUSE  323 

♦  PRCC  GENNEG  IS  THE  RUNTIME  GENERATOR  .  IT  IS  IN  THE  POST  UNIFICATION  324 
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♦  StCTION. 
6ENC0ER"  PRQC«NAME» A*B,C)» 

BE6IN(XVARS,  NAMES)> 

NAMES-  NILf XVARS-ZVARIABL» 

CO£RS»=  NAME:COERS. 

SETPR0P(NAM£,»PAIk,NAMEl(A)tNAMtl(6)) 

t     VALUE  NAME=  VECTOR  (  NAME,  .M  IL*  MA  PX  (  C»  NAMEl )»  L  ENGTH{  C  )»  N  IL»NIL»  0 

*Q)f 

V-  CQPY(ZVARIAflL)*  WHILE  XVARS  REPEAT  DO 

V-  OELETE(HD  XVARS, V),  XVARS=  TL  XVARS 
END, 

DErAIL(V), 

SETPROP(NAME,»VARS>V),  RETURN  VALUE  NAME 
END 
END; 
GENCLAUS«PRaC<NAME,POS,NEG), 
BE6IN(P)> 

VALUE  NAME  ■  VECTOR ( NArtt, Nl L, N IL > L ENGTH( NEC )  , M L ,S I L* 0, 0 ) , 

LITLIST( VALUE  NAME)  -  NEG, 

SETPRCPlNAh£,»PDSLIT,PaS), 

MERITVAL( VALUE  NAME)«  COMPLEX(NEG)  , 

IF  POS  THEN  DO 

P=  PREDCHAI,  WHILE  P  REPEAT  DO 
IF  HD  PCS  EQ  HO  HD  P  THEN  00 

TL  HD  P=(VALOE  NAM£):(TL  HD  P), 
RETURN  VALUE  NAME 
END,  P-  TL  P 
END, 

PREDCHAI"  ((HD  POS):((VALUE  NAME ) t NIL ) ) « PR EDCHAI 
END, 

RETURN  VALUE  NAME 
END 
END; 
♦ 

♦  UNIFICATION 
♦ 

ZVARIAfaL«  «(Z1  Z2  Z3  Z^  Z5  lb    17    IQ    19    ZIC  Zll  Zi2); 
SETBIND(X1,X2)  MEANS 
(  (  (  Xl:X2)  :NU):NIL)  ; 
INFIX(-IS NO  TIN, 1401,12  00, "NO  TIN); 
EMPl-  LIST(NIL); 
EMPTY  =  LIST(LIST(NIL)  )  ; 

♦♦  NOTIN  IS  A  UNIFICATION  PRIMATIVE   VAR  NOTIN  EXP 
NQTINe    PROC(VAR,ALIST), 
BEGINO, 

IF  -PAIRQ(ALIST)  THEN  RETURN  (^  EQUAL ( VAR, AL 1ST) ) , 
ALIST-  TL  ALIST, 
WHILE  ALIST  REPEAT  DO 

IF  -NOTIN(VAR,  HD  ALIST)  THEN  RETURN  FALSE, 
ALIST"  TL  ALIST 
END  ,  RETURN  TRUE 
END 
END; 

♦  THE  PAIR  OF  A  COERCION  ARE  COPIES  CF  THE  TV.U  EQUIV  EXPRESSIONS 
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386 
389 
390 
391 


►  WHERE  VAftlAfaLES  HAVE  BEEN  REPLACED  BY  NUMBERS  379 

>USHUNIF«PROC(OLD»NEW),  38c 

BE6IN(U1,U2»L1»L2,U3,U*P,L4)»  3t31 

**    OLD  AND  NEW  ARE  TWO  UNIFER  LISTS  WHICH  ARE  TO  BE  COMBINED  AND  UPDATE  382 

IF  EQUAL  (  JLD  ,  E'^Pl)  THEN  RETURN  NEW,  383 

IF  EQLAL(  EMPI,NEW)  THEN  RETURN  OLD,  384 

-(Ul.Ll)«OLD,»(U^.Li;)-^IFW,  t                   335 

Ll«  SUB1(L1,U1),  Ll=  SUB1(L1,L2),  386 

L2-  SUBI(L2,U2),  337 

L4=L2, 

IF  L2  THEN 

00 

WHILE  TL  L2  REPEAT  L2=  TL  L2,  TL  L2«  LI 

END  ELSE  L<r«  LI,  392 

U3  »  Ul,  393 

WHILE  -(P.U3)»U3  REPEAT  TL  P-  SUBINPLA(TL  P,U2),  394 

U3  «  Ul,  39J, 

IF  U3  THEN  DO  395 

WHILE  TL  U3  REPEAT  U3»  TL  U3,  TL  U3=U2  397 

END  ELSE  U1-U2,  398 

RETURN  U1:l<.  399 

END  ^00 

END;  ^01 

GU1=     PROC(P, N, A, B, OUT, DEPTH, COR, BINDS, NAME),  402 

BEGIN(Ml,'i,Pl,U,12,M3,  iHOLD),  ^03 

M-M2«NIL,  .'  ■;           <,04 

IF  BVARS  THEN  DO  <,05 

IF  ATQM(P)  AND  aTCM(N)  THEN  RETURN  UOUT  406 

END,  ^07 

UNIFDEPT-UNlFDEPT+1,  408 

IF  BVARS  THEN  DO  409 

IF  ATOM(P)  AND  ATOM(A)  THEN  N-  L I  ST (L 1ST ( A : P ) t MI L )  410 

END  ,  IF  ■'M  THEN  411 

M-  (IF  Ul  THEN  EhPTY  ELSE  MGUSET ( P, A, DEPTH, AOOLITS-  L£NGTH(CCR)  412 

,NAME)),  413 

WHILE  »(M1.M)  »  M  REPEAT  DO  414 

M2»  NIL,  415 

IF  dVARS  THEN  DO  416 

IF  ATOM(N)  AND  ATQMtB)  THEN  M2=  L  I  ST ( L I  ST ( 8 :S ) : N I L )  417 

END  .IF  --M?  THEN  418 

i2«  (IF  U2  THEN  EMPTY  ELSE  MGUSEK SUBCGP Y( N,HD  1 1  )  , SUBC uP Y ( B  419 

,HD  Ml),  420 

DEPTH, ADDLITS-  LENGTH(C3R)-  LtNGTri(TL  Ml), NAME)),  421 

WHILE(-(M3.M2)«M2)  REPEAT  DO  422 

UGUT=  PUSHUNlF(PUSHUNIF(CaPY(Ml),M3), (CQPY(blNDS) tCOPYC  423 

COR)))«UOUT  424 

END  425 

END,  426 

UNIFDEPT*UMF0EPT-1,  437 

RETURN    UOUT  428 

END  429 

END;                                                                                                                   ,    ■  43Q 

3SSI6LE-PROC(A,     N    ,    FLAG),  43I 

BEGINO,  432 
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VALUE  FLAG  -  NIL* 
IF  ATGM(A)  THEN  RETURN  TRUE* 
IF  ATDM(N)  THEN  RETURN  TRUE  , 

IF  HD  A  EQ  HD  N  THEN  RETURN  TRUE*  RETURN  FALSE 
END 
END; 
MGUSET«   PROC ( N*P* DEPTH* AODL ITS »DONT)* 

BE6IN(NT*PT*P1*N1»  UNIFS,  U0UT*E1*  U2*B,  U1»A*E*M*  LCJP*  BIND* 
BINDS* 

U*J*J2*NAME)* 

IF  EOUAL(N*P)  THEN  RETURN  (EMPTY)* 
Nl»  NOTEQLIS* 
WHILE  Nl  REPEAT  DO 

NT=  HD  Nl,  Nl=  TL  M* 

IF  EQUAL(HD  NT*P)  AND  EQUAL(TL  NT*N)  THEN  RETURN  -NOGQOD* 
IF  EQUAL(HD  NT*N)  AND  EQUAL(TL  NT*P)  THEN  RETURN  »NGGOOD 
END* 

IF  DEPTH  GT  HAXCOERS  THEN  RETURN  -NQGUOD* 
UQUT«UNIFS=NIL* 
IF  -"BYPASS  THEN  DO 
IF  ATO«(P)  THEN  DO 

IF  P  ISSQTIN  N  THEN  UNIFS=  L I  ST ( SET8IN0 ( P* N  ) ) 
END 
ELSEIF  ATOM(N)  THEN  DO 

IF  N  ISNQTIN  P  THEN  UNIFS=  L  1ST ( SE  13 IND ( N, P  ) ) 
END* 

UQUT-UNIFS* 

IF  PAIPO(N)  AND  PAIRQ(P)  AND(HD  N  EQ  HD  P)  THEN  DO 
UNIFS-Ei^PTY* 
NT  «  TL  N*  PT»  TL  P* 
WHILE  NT  REPEAT  DO 

Nl=  HD  NT,  NT=  TL  NT* 

Pl«  HD  PT*  PT»  TL  PT,  UCUT-  NIL* 

WHILE  UNIFS  REPEAT  00 

U»  HD  UNIFS*  UNIFS=  TL  UNIFS, 

IF  ADDLITS  LT  LENGTH(TL  U)  THEN  M»  -NOSOOO  ELSE  DO 
A«  CaPY(Nl),B=CGPY(Pl)* 
UNIFOEPT-UNIFDEPT-H* 

M  =  MGUSET(SUBINPLA{A*HD  U),  SUB  INPL A(  8* HD  U)* 
DEPTH* 

ADDLITS-LEnGTHCTL  U)*NIL)* 
UNIF0EPT=UNIF0EPT-1 
END* 

WHILE  PAIkQ(M)  REPEAT  DO 
E-  HD  M,  M«  TL  M* 
U0UT«PUSHUNIF(C0PY(U),E) «UOUT 
END 
END*  UNIFS"  UOUT 
END 
END 
END*  BYPASS«NIL, 
E1-{ATCM(N)  OR  ATO«(P)), 
IF  "El  THEN  El=  (HD  N  EQ  HO  P)* 
IF  --El  THEN  El»  ALWAYS, 
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IF  El  THEN  DO  '•a? 

IF  (DEPTH  LT  MAXCOERS)  THEN  DO  ^88 

E=  COERS,  ^9^ 

WHILE  E  REPEAT  DO  '•90 

El=  HD  E,  E=  TL  E»  ^91 

IF    El    NE    DONT    THEN    DO  .            ^92 

N/kME-    El,  ■;,               ^93 

IF  CLtNGTHC  VALUE  El)  LE  ADDLITS  THEN  DO  ._     '^^'* 

J2-GETPRQP(Eif  »CPROC),  '•95 

IF  CaPYPAIR(El,N,P)  THEN  00  '•96 

M»  BIMDS,  '•97 

IFl-'ATCMCA)  AND  -ATGM(B))  OR  (UNIFDEPT  NE  0)        A98 

THEN  DO  '•99 

BINDS"  NIL/  500 

El=  LCOR,  501 

IF  C00EU(j2)  THEN  J" J2 ( N, P> UOJ T  )  ELSE  J=  502 

TRUE,  ,,        503 

IF  J  THEN  00  •         SO'r 

Nl=>  0,    IF  J  NE  TRUE  THEN  Ni=(MAXCOERS  -  505 

J  )»  Nl«  nAXl(Nl,DEPTH*l),  506 

IF  P0SSIBLE(A,N,=U1)  AND  PJ SSIBLc ( 8, P, =  507 

U2)  THEN  DO  508 

ULlUT»MGUi(N,P,A,b,UUT,Nl,CUPY{Ei),  509 

BINDS, NAME)  510 

END  511 

END,  512 

IF  (■'ONEWAY)  OR  (■'UJUT)  THEN  DO  513 

IF  CuDEC(J2)  THEN  J  - J2( P »N, UQUT )  ELSE  J      514 

=  TRUE,  515 

IF  J  THEN  00  516 

Nl«  C,  IF  J  NE  TRUE  THEH  Nl-(  517 

MAXCOERS  -J  ).  Nl»  f^AXK  N1,DEPTH  +  1),  518 

IF  PDSSIBLt(&,N,»U2)  AND  PC!SSI6LE(A,  519 

P,=U1)  THEN  00  520 

UOUT«MGUl(P,N,A,B,iJUT,Nl,El,BINDS  521 

,NAME)  522 

END  523 

END                      •  ■   >  52A 

END                            .  .,  .  52  5 

END  526 

END  527 

END               .  »-  r-      ■   ^  /  ..  .  ,  •  52B 

END  529 

END                          ■  530 

END  531 

END,                                                   '  532 

IF  ■'UOUT  THEN  UOUT  •  -NaGODD,  533 

RETURN  UOUT  53A 

END  . .       535 

END  ;  -36 

OPYPAIR«PRaC(COR,S,T) ,  537 

BEGIN(P,V,V1),                                     ,  ,  ■  ?:    -.         538 

P«GETPROP(CQR»»PAIR),  539 

IF-'PQSSIBLE<HO  P,S,»V)  THEN  DO  540 
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IF-P0SS1BLF(TL  P*     S  ,  -V)  THEN  RETURN  FALSE* 
IF  -P0SSI8LE(HD  P  »  T  >=V)  THEN  RETURN  FALSE 
END> 

IF  -PCSSISLECTL  P»  T  »»V)  THEN  RETURN  FALSE*  -^ 

P«  CJPY(6ETPRQP(C0R»»PAIR)  ),v»  & t TPROP ( CQR* - V ARS ) » 
BIND=  NIL*  WHILE  =(V1.V)  =  V  REPEAT 

BINO»(VU (CQRIO-CORID*!) ) :BIND»  LCDR-  SUB  1 ( COP Y ( L IT L I ST( VALUE 
COR)  ) 
*  BIND)  * 

A»SUBINPLA(COPY{HO  P ) *B INO ) » B=SUBINPL A (COPY ( TL  P)»BIND)* 
RETURN  TRUE 
END 
END; 
VARSNUM*  PPOC(LIT)» 
BEGIN(S*L2)* 

S=0*L2«TL  LIT*  WHILE  L2  REPEAT  DO 

IF  ATQM(HD  L2)  THEN  S-  S+I  ELSE  S«  S+VARSNUM(HO  L2)*L2«  TL 
L2 
END* 

RETURN  S 
END 
ENDl 
* 

♦  POST  UNIFICATION  PROCESSING 
* 

EMPTYCLA"  PRQC(X)* 

CLENGTH(X)  EQ  0 
END; 

♦  SUBTRACT  IS  USED  TO  BUILD  ktSOLVENTS. 

♦  IT  BOTH  APPLIES  A  UNIFIER  AND  REMOVES  OCCURANCES  OF  THE  LITERAL 
SUBTRACT«PRGC(LIST*LIT*UNIF)» 

BEGIN(L  *  LD* 

LIT*  SUBINPLA(LIT*UNIF)* 

L"  NIL* 

WHILE  LIST  REPEAT  DO 

LI"  SUBCQPY(HD  LIST*UNIF)* 
IF  -'EQUAL(L1*LIT)  THEN  L=  L1«L* 
LIST"  TL  LIST 
END*  RETURN  L 
END 
END; 
F AKECL' VECTOR ("FAKECL* NIL »0, NIL* NIL. 0*-100) ; 
CPLEX"    PROC(CL)* 

MERITVAL(CL)  +  OEPTHVAL(CL)  /  rtAXCPLEX 
END; 
NEST"     PROC(CL*0), 
BEGIN(ri>n2)* 

IF  ATDM(CL)  THEN  RETURN  D* 

M"D» 

WHILE  CL  REPEAT  DO 

M2"  NEST(HD  CL*  0*1)* 
IF  M2  6T  M  THEN  M=  M2»  CL"  TL  CL 
END* 
RETURN  M 
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END  595 

END;  I              59fc 

CLMEMbtP-PROC(CL»LIST)*  597 

BEGIN(M»W),  698 

h«MERITVAL(CL) »  599 

CL»LITLIST(CL)»  600 

WHILE  LIST  REPEAT  DO  601 

W-  HD  LIST,  IF  MERITVAL(W)  EQ  M  THEN  DO  I              602 

IF  SAMECL(CL,W)  THEN  DO  603 

IF  CLAUSEPR  THEN  60A 

PRINT{>«DUPLICaTE  OFi',NAMEOF(w)).  RETURN  TRUE  •'        605 

END  606 

END,  607 

LIST«  TL  LIST  608 

END,  RETURN  NIL  609 

END  610 

END;  611 

CLEC-     PR0C(LIT1,LIT2),  -              612 

BEGINO,  613 

IF  EQL'AL(LIT1,LIT2)  THEN  RETURN  TRUE,  614 

IF  ((  PREOSYM(LlTi)  EQ  E&l)  OR  ( PREDS YM ( L I Ti )  EQ  EJ2  ))              615 

AND  ( (PREDSYn(LlT2)  EQ  EQi)  OR  ( PREDS YM( L 1 T2 )  EQ  E J  2  )>              616 

THEN  617 

DO  618 

IF  EOUAL(TL  L1T1,TL  LIT2)  THEN  RETURN  TRUE,  619 

IF  -«  ECUAL(  HD  TL  LIT1,HD  TL  TL  LIT2)  THEN  RETURN  FALSE,          620 

RETURN  EQUAL(HD  TL  LIT2,  HD  TL  TL  LITl)  621 

END,  RETURN  FALSE  •'         622 

END  623 

END;                                          .  '                        624 

SAMECL«   PROC(LIT,CPR),  625 

BEGIN(CPRLIT),  626 

CPRLIT-LITLIST(CPR),  .        627 

RETURN  SEQUAL(LIT,CPRLIT)  628 

END  '                  62  9 

END;  630 

MOVE=     PROC(LIST),  631 

BEGINO,  632 

WHILE  LIST  REPEAT  DO  633 

IF  HD  HD  LIST  NE  =f1ARK  THEN  RETURN  LIST,  LIST=  TL  LIST            634 

END,  RETURN  NIL  635 

END  636 

END;                                         •  637 

GENNEG»   PROC(NCTX,MCTX,NcGLIT,UNIFER,NEC,LITS)»  638 

BE6IN(CL,PLIT,LITS),  639 

NEGLITS'  COPY(NEGLITS),  640 

PLIT«COPY(LITLIST(MCTX) ),  641 

CURCONTE  »  CL»  VECTOR  ( CLAUSE IO»CLAUSE lO+l, NCTX, NIL, LENGTH( PLI T  642 

)  643 

+  CLErGTH(NCTX)  -1,  f^CT  X,  N  I  L,  DEPTHVAL  (  NCTX  )  ♦!,  MER  IT  VAL  (  NC  TX  )  )  ,  fc44 

IF  SAVER  THEN  MIXE DP AR ( CURCONTE ) =  NIL,  645 

IF  SAVER  THEN  NEGPAR ( CURCONTE ) «  NIL,  646 

LITS-  APPEND(TL  UNIF ER, APPEnD( PL  1 T, NE GLl TS )  )  >                         647 

DETAIL(LITS),  648 
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PLIT'^LITS,  WHILE  PLIT  REPEAT  00  6^9 

HD  PLIT  -  SUBINPLA(HO  PLIT,HD  UNIFER)*  PLIT  -  TL  PLIT  650 

ENO»  651 

DETAILCLITS),  652 

IF  CO^PLBT  THEN  653 

LITS-MARK(LITS»SU8INPLA(NEGLIT>HD  UNIFER))  ELSE  L  IT S «  OELETE(  654 

SUBINPLA(NEGLIT,HD  UNIF ER ) , L ITS ) *  655 

DETAIL(LITS)»  656 

MERITVAL(CL)*  COMPLE X ( L 1 TS ) »  657 

IF  PEFNS  THEN  00  658 

NEWBINDS*  NIL*  NAMES=NIL*XVAPS=XVARIABL*LITS«MAPX(LITS*NAME1  659 

),  660 

IF  RETAIN  THEN  661 

LnS»  EVALUATE(LITS)  662 

END*  663 

DETAIL(LITS)»  66'» 

IF  COMPLET  THEN  665 

TESTCC;MP(LITS)/  666 

IF  COMPLET  THEN  667 

LITS"  MERGE(LITS)»  668 

LITS«  R6NAME(RENAME(LITS»C0PID+2)*O)»  669 

DETAIKLITS)*  670 

LITLIST(CL)«LITS,  671 

CLENGTH(CL)»  LEN6TH( L ITS ) »  672 

RETURN  CL  673 

ENO  67't 

ENO;  675 

SEQUAL*   PR0C(LITS*LITS2)»  676 

BEGINO*  677 

LITS-M0VE(L1TS)»  LITS2- lOVE ( L I TS2 ) »  678 

WHILE  LITS  REPEAT  DO  679 

IF  -CLEQ(HO  LITS  ,    HD  LITS2)  THEN  RETURN  FALSE*  680 

LITS-MOVE(TL  L  I  TS ) » L I TS2  =  MOVE ( TL  LITS2)*  681 

IF  -•  LITS  THEN  RETURN  -L1TS2  682 

ENO*  RETURN  FALSE  683 

ENO  68^. 

END;  685 

AOONEGS-  PRGC(CL)»  686 

BE6IN(r4*M*B)*  687 

N"FAKECLINEGS*M-CPLEX(CL)*B-N»  688 

RACCPT-  RACCPT+1*  689 

NUMSOLUT=  NUMSCLUT-t-I*  690 

WHILE  TL  N  ANO(CFLEX(HD  TL  N)  LT  M)REPEAT  691 

N=  TL  N,  TL  N-  CL:  TL  N,  NtGS=  TL  fa*  RETURNO  692 

ENO  693 

END;  694 

DELATE"   PR0C(CL, RETAIN)*  69S 

BEGINO*  696 

IF  OEPTHVAL(CL)  6T  HAXLEVEL  THEN  DO  697 

RETAIN-  FALSE*  698 

QEEPCNTR"  OEEPCNTR+1*  699 

PRINT(^DEPTH  CUTOFFj')  700 

END  701 

ELSE  IF  NEST(LITLIST(CL)*0)  GT  MAXNEST  THEN  DO  702 
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NSTR»  NSTR+1*  703 

PRINT(>«T00  OFtP#)»  RETAIN-  FALSE  70^ 

END  70& 

ELSE  IF  M£RITVAL(CL)  GT  MAXCPX  THEN  00  706 

CNTR'  CNTR*1»  707 

RETAIN    ■    FALSE*    PRlNT(i«TOO    COMPLEX*')  708 

END*  709 

RETURN  RETAIN  710 

END  711 

END;  712 

♦  713 

♦  PARTIAL  EVALUATION  OF  PREDICATES  AND  RUCTIONS  71'» 

♦  715 
CADJUST(Xl)  MEANS  IF  M EMBt R ( XI , CONSTANT  716 

)  THEN  Xl«  LIST(Xl)  ;  717 

PENAMES  '    '(PFl  PE2  PE3  PE<»  Pt5  PE6);  718 

♦  WHEN  WE  START  TO  PE  A  CLAUSE  WE  FIRST  CHANGE  ALL  VARIABLES  INTO             719 

♦  MEMBERS  OF  THE  LIST  VARIABLES.  THIS  LETS  IDQ  WORK  7£0 
♦ISBOUND  RETURNS  TRUE  IS  ITS  ARGUMENT  HAS  A  BINDING  ON  THE  SPECIAL  721 

♦  BINDING  LIST  FOR  THIS  CLAUSE  722 
XVARIABL"  -(Xl  X2  X3  X4  X5  X6  X7  Xd  X9  XIO  Xll  X12);  723 
ISBDUNO'  PROC(VAR»CONTEXT)»  72<» 

BE6IN()*  725 

CADJUST(VAP)#  726 

IF(BNDVAL=L00KUP{VAR,NEWB1NDS) )THEN  RETURN  TRUE*  727 

IF  NUMARGSO  EQ  1  THEN  CONTEXT"  CURCONTE*  728 

RETURN  ISBNOKVAR, CONTEXT)  729 

END  730 

END;  731 

ISBNDl-   PROC(VAP»CTX)»  732 

BE6IN()*  733 

♦  THE  GLOBAL  VARIABLE  BNPVAL  GETS  THE  BINDING  73^ 

IF  (BN0VAL«  LOCKUP( VAk*BINDINGS(CTX)  )  )  THEN  RETURN  TRUE*             735 

IF  INPUTCL(CTX)  THEN  RETURN  FALSE*  736 

IF  ISBNDK VAR,NEGPAR(CTX))  THEN  RETURN  TRUE                           737 

END  738 

END;  739 

VARIABLE-PROC(ITEM)*  7^0 

-PAIRQCITEM)    AND    ^MEMBER ( ITEM* CONSTANT  Til 

)  :                                                     TiZ 

END;  7^3 

BIND-            PR0C(EXP1,EXP2)*  c..        •                                                       7'»<. 

BEGINCJ)*  7^5 

CADJUST(EXP1)*CADJUST(EXP2)*  7'»6 

IF  -SAVER  THEN  747 

NEw9IN0S«(EXPl  :  EXP2)  :NEWBiNDS*  748 

MASTPRED-(SUBINPLA(MASTPRED*EXP1:  EXP2  «NIL  ))                        749 

END  750 

END;  751 

PE«       PROC(PRED)*  752 

BEGIN(S*A* J)*  753 

S-PREDSYM{PRED)*  A- ARGL IS T( PR t D ) *  MAPR ( A* PE VALl ) *  754 

IF  CQDEQ( J-GETPROP(S*-PE))  THEN  RETURN  J(PREO)                       755 

ELSE  RETURN  PRED  756 
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END 
END{ 
PEVAL=    PROC(FN)» 
BE6IN(S>A,J)> 

S«F^^SYM(FN)*A-ARGLIST(FM),  MAPR  (  A,  PE  VALl )  » 
IF  CODEQ( J-GETPROP(S*-Pe))THEN  DO 
S-J(FN)» 

CADJUST(S)»  RETURN  S 
END* 

RETURN  FN 
END 
END) 
PEVALl"   PRGC(X), 
BE6IN(Y)* 

IF  ATUrt(X)  THEN  RETURN  X,  IF  -TL  X  THEN  RETURN  X  , 
Y«PEVAL(CQPY(X)  ), 

IF  -'EOUAL(X,Y)  THEN  BIND(X,Y)  p    RETURN  Y 
END 
END; 
EVALUATE  -  PROC(CL)» 

BE6IN(B«NEWBIN0S)> 
B«  CL» 

WHILE  B  REPEAT  DO 
NEV*BINOS»NIL» 

IF  HD  HD  B  NE  *MARK  THEN  DO 
WORK-PARTEV(HD  B)» 
DETAIL(WORK), 

IF  WORK  EQ  TRUE  THEN  CL-  0EL6TE(H0  B,  CL)> 
IF  WORK  EQ  FALSE  THEN  DO 

RETAIN-  FALSE*  PftINT(>«tVAL  REJECTS**), 
RETURN  CL 
END> 
IF  NEWBINOS  THEN  DO 

S-  NIL,  SUBINPLA(NIL:CL,  NEWBINOS), 
WHILE  NEWBINDS  REPEAT  DO 

IF  ATOM(HD  HD  NEwBINDS)  THEN  DO 

IF  -  ,"1EM8ER(HD  HD  NEWBINDS.  XVARIA8L)  THEN  DO 

S«  (HD  NEWBINDS)  «  S 
END 
END, NEWBINDS-  TL  NEWBINDS 
END, 
WHILE  S  REPEAT  DO 

NEWBINDS"  (HD  S)«  NEWBINOS,  S"  TL  S 
END, 

IF  NEWBINDS  THEN  B IND IN6S (CURCONTE )  =  NEWBINOS: 
8IN0IN6S(CURC0NTE) 
END 
END,B«  TL  B 
END,  RETURN  CL 
END 
END; 
CRACK"    PROC(PAT,EXP), 
BE6IN(S), 

IF  IDQ(PAT)  THEN  DO 
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IF(COOEQ(S=>GETPRaP(PAT*  =  TYPE)  )  )  THEN  DO  811 

IF  PAIRQ(EXP)  AND  -ARGL  I  ST ( EXP  )  THEN  00  812 

S-  S(HO  EXP),exP»  HO  tXP  813 

END  81^ 

ELSE  S"  S(EXP)»                                  ,  .  815 

IF  -•  S  THEN  RETURN  FALSE  816 

END*                                               .*  i  817 

VALUE  PAT  »  EXP,  RETURN  TRUE  818 

ENO>  819 

IF  ATOM(PAT)  THEN  RETURN  EQUAL ( PA T, EXP ) >  820 

IF  ATCM(EXP)  THEN  RETURN  FALSE,  821 

IF  CRACKCHO  PAT, HO  EXP)  THEN  RETURN  CRACK(TL  PAT,  fL  EXP),  822 

RETURN  FALSE  823 

END  82<» 

END;  826 

PARTEV  «  PROC(PREO),  826 

BE6IN(  CONTEXT, MERIT, S,NFN,SA, DEPTH, J, V,MASTPRED),  82  7 

MASTPPED-PREO,  828 

CONTEXT»CURCONTE,MERIT»MERITVAL(CONTEXT),  DEPTH-DEP THVAL(  829 

CONTEXT),  830 

S«  PE(PRED)f                                                  «  831 

MtRITVAL(CONTEXT)"HERIT,  832 

IF  -PAIRQCS)  THEN  RETURN  S,  833 

IF  -PAIRQIHD  S)  THEN  RETURN  S  ,  83^ 

NFN»  PENAMES,  SA«  ARGLIiT(S),  835 

WHILE  SA  REPEAT  00  836 

IF  VARIABLE(HO  SA)  THEN  00  837 

IF  COOEO( J«GETPR0P(PR6DSYr(S),H0  NFN))  THEN  DO  838 

V«  J(PRED),  839 

IF  V  NE  PREO  THEN  DO  8<tO 

BIN0(H0  SA,V),  RETURN  TRUE  841 

END  8<»2 

END  643 

END,  844 

f^FN«TL  NFN,SA=  TL  SA  845 

END,  846 

MERITVAL(CONTEXT)»MERIT,  RETURN  S  847 

END  846 

END;  849 

GROUND-   PROCCX),  850 

BEGIN(T),  851 

IF  ATrii(X)  THEN  DO  852 

(IF  VARIARLE(X)  THEN  RETURN  FALSE),  853 

RETURN  TRUE  854 

END,  855 

T-  TL  X,  856 

WHILE  T  REPEAT  DO  857 

IF  -'GROUNDCHD  T)  THEN  RETURN  FALSE,  T-  TL  T  858 

END,  859 

RETURN  TRUE  860 

END  861 

END;  862 

HASCCN=   PROC(LIT),  863 

I     BE6IN(),  864 
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IF  ATOM(LIT)  THEN  RETURN  FALSE* 
IF  -'  TL  LIT  THEN  RETURN  TRUE* 
LIT-  TL  LIT, 
WHILE  LIT  REPEAT  DO 

IF  HASCOK(HD  LIT)  THEN  RETURN  TRUE#LIT-TL  LIT 
END, 

RETURN  FALSE 
END 
END; 
FREEVARS-  PROC(LITS), 

BE6IN(L,H,S),  ' 

S«0,L«NIL»H«LITS, 
WHILE  H  REPEAT  DO 

GETFRPE(HD  H),  H«  TL  H 
END,  RETURN  S 
END 
END; 
GETFREE"  PROC(LIT), 
BEGINCT), 

IF  ATOM(LIT)  THEN  DO 
IF  -L  THEN  DO 

L»  LITiNIL,S»l, RETURN  NIL 
END, 

IF  MEMBER(LIT  ,L)  THEN  RETURN  NIL, 
L-LITiL,S-S*l, RETURN  NIL 
END, 

T-  TL  LIT, 
WHILE  T  REPEAT  DO 

GETFREE(HD  T),  T»  TL  T 
END,  RETURN  NIL 
END 
END  ; 
* 

♦  COMPLETIONS 
♦ 
ADDMIXED"PROC(NEWCL), 

MIXEDCL=NEwCLtMIXEOCL 
END} 

♦  CL  IS  A  LIST  OF  LITERALS 

♦  WE  REMOVE  EACH  LITERAL  EQUAL  TO  LIT  AND  REPLACE  IT  BY   A 

♦  ONE  ARGUMENT  PREDICATE  «MARK  THE  LITERAL  BECOMES  THE  ARGUMENT 

♦  LATER  THE  CLAUSE  WILL  BE  CHECKED  FOR  COMPLETIONS 

♦  IF  A  MARKED  LITERAL  IS  AT  THE  TOP  OR  TwQ  MARKED  LITERALS  ARE 

♦  TOGETHER  THEN  THEY  MAY  BE  COMPLETED 
MARK-     PROC(CL,LIT), 

BEGINCB), 
B"  CL, 
WHILE  CL  REPEAT  DO 

IF  EQUAL(HD  CL,LIT)  THEN  HD  CL-  L I ST( -MARK, L IT ), 
CL-  TL  CL 
END  ,  RETURN  B 
END 
END; 

♦  MERGE  REMOVES  MARKED  LITERALS  FROM  THE  TOP  OF  A  LIST 
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♦  IT  DOES  NOT  CHECK  FOR  MEPGES  919 

♦  HOkxEVER  THIS  IS  JUST  THE  PLACE  TO  PUT  IN  THAT  CHECK  920 
MERGE*    PROC(CL).  921 

BE6IN(  )»  922 

WHILE  HD  HO  CL  EQ  =MARK  REPEAT  CL  =  TL  CL»  RETURN  CL  923 

END  92<t 

END;  925 

♦  MOVE  FINDS  THE  FIRST  NON  MARKED  LITERAL  OF  A  LIST  926 
MOVE«     PROC(LIST),  927 

BEGINOf  926 

WHILE  LIST  REPEAT  00  929 

IF  HD  HD  LIST  NE  «MARK  THEN  RETURN  LIST*  930 

LIST-  TL  LIST  931 

END*  RETURN  NIL  932 

END  933 

END;  93<» 

♦♦  TEST  FOR  COMPLETIONS  MARKED  LIT5  AT  TOP  OR  NEXT  TO  EACHOTHER  935 

TESTCOMP-PROC(CL»»  936 

BEGIN(SWITCH),  937 

SWITCH-  TRUE*  938 

WHILE  CL  REPEAT  DO  939 

IF  HD  HD  CL  EQ  -MARK  THEN  940 

(  IF  SWITCH  THEN  COMPLETR(HD  CL)  ELSE  SWITCH  »  TRUE  )  941 

ELSE  SWITCH  •  FALSE*  CL-  TL  CL  942 

END  943 

END  944 

ENOJ  945 

COMPLETR-PROC(LIT)*  946 

BEGIN(S» J*TEMP*G,T2*L»N*NEGLITS*UN»U*CL)»  94  7 

S-PREDSYM(LIT) »  948 

IF(-'(  J-CODEQ(GETPROP(S*-CMPLTP))  )  )THEN  RETURN  NIL*  949 

TEMP=J(LIT)*                                                  ,  ;  950 

WHILE  TEMP  REPEAT  00  951 

IF  HO  TEMP  EQ  TRUE  THEN  00  952 

G-  GENCLAUS(GENSYM(  )»ML>LIST(LIT)  )»  953 

ADDMIXED(G)  954 

END  955 

ELSE  DO  956 

T2=  GETPROP(HO  TEMP* -DE  SEND  )  «  (HO  TEMP)*  957 

WHILE(=(CL.T2)=  T2)  REPEAT  00  958 

NEGLITS-LITLISKCD*  959 

WHILE  ='(N.NEGLIT)-NEGLITS  REPEAT  00  960 

UN-  MGUSET(N*CQPY(LIT)*  MAXC0ERS+i*0 ) *  961 

WHILE»(U.UN)«UN  REPEAT  DO  962 

ADDMIXE0(GENCLAUS(6»GENSYM( )*SUBlNPLA(PaSLIT  OF  963 

CL*HD  U)*  964 

SUBTRACT(LITLIST(CL)*  LIT*HD  U)))*  965 

IF  CLENGTH(G)  EQ  0  THEN  CGMPLETR  (G)  966 

END  967 

END  968 

END  969 

END*  970 

TEMP-  TL  TEMP  971 

END*RETURN  TRUE  972 
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END 
END; 

♦*  RUNTIME  MONITOR  AND  INITAIZATION  RTNS 

♦  » 

PRINTS'   PROC()» 
BE6IN()» 

S«  COERS*  PRINT(»'COERCIONS»')» 
WHILE  S  REPEAT  DO 
J«  VALUE  (HO  S)» 

PRINT(HD  S.  LITLIST(J)»  G£TPROP(HD  S*«PAIR)),  S-  TL  S 
END* 

S=  MIXEDCL*  PRINT(»<MIXEOCL  +  POSITIVE  CLAUSES**)* 
WHILE  S  REPEAT  DO 

PRINT(J*  NAMEOF(HD  S)*  GE  TPROP  (  J»  =  POSLI  T  )  *  xFROMf* »  LI  TLIST  (HO 
S) )»  S-  TL  S 
END* 

RETURN  TRUE 
END 
END; 
OTTER=    PROC(X), 

BE6IN(S»STIME)* 
ANOSW-  FALSE* 
PRINTS( )* 
X"  REMCO(X), 

IF  ATCfKHD  X)  THEN  S«  LISKLiSKX)) 
ELSE  IF  ATOH(HD  HO  X)  THEN  DO 

IF  ANDSW  THEN  S*  LIST(X)  ELSE  DO 
S-  X*  WHILE  S  REPEAT  DO 

HD  S=LIST(HD  S),  S=  TL  S 
END  *  S=  LIST(X) 
END 
END 

ELSE  S'  X, 
NEGS-  NIL* 
WHILE  S  REPEAT  DO 

NEGS"  GENCLAUS(GENSYM( )*NIL*HO  S)  «NE6S*  S«  TL  S 
END* 

CLEARSYS( )> 
CLEARSYS-NIL* 
GARBCOLL( )* 
CQPY-COPX* 

PRINT()«START  OF  RUN»<,  STIME  -  TIME  (  )  )  * 
S-  RTM(NEGS*MIXEDCL*COERS)* 

PRINTHIS(S)*PRINT(TIME(  ) -ST  IME  )  »  PRINT  (  COPYF  AI  L  )  *  PRINT(  »«EOJ»« )  * 
PR1NT(»'RES0LUTI0NS^.RCNTR,)<RES0LVENTS  GENER  ATED»**  RG  EN*  »«ACCt  PTE  D 
»«*RACCPT) 

PRINT()t  DUPLICATES'**  DC  NTR*>«CCMPLEx#*CNTR*)<OEEP»«*OtE  PC  NTR)* 
STOP( ) 
END 
END; 
CHGCHAR(«.*10) ; 
CLEARSYS»PPaC( )» 
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BEGINO^  1027 

GARBCCLLO*  1028 

BAL1»  EXECUTE«  VFROML.»NIL»  1029 

ORDINAL.' OR  Dl.  =•  I  FROM  ID  .  »  IN  I  TI  AT  .  =  IN  IT  10.  »  INITUNA  .  «nJ  IL*  1030 

UNARYLI  .■IMTINF.«INFIXLI.«INITLXP.  =  MACR0LI.»NIL*  1031 

INITCOO."CONGENL."INITaPL.»OPLIST.-INITMIS."NIL»  103  2 

READ.»ROTQKEN.=RDITEM.»GETLIST.«GtTVECT.«GETV.«NlL»  103  3 

LXSCAN.«READlM.«TRANSLA."MAC0EF.-nACKOLI.-INFIX»UNARY-NlL»  10 3 A 

BRACKET-  FNOTN.'GETNEXT. "ANALYSE. "PEMCOM.-RtMSEP.  -NIL*  1035 

OPERRCR.*EXPAND.»EXLIS.»CODEGEN.'=SUbLBLS,'=NIL»  1036 

CGMP.-  GVAR,-  GCON.«GCALLi.-  ARGLIST."  GKEFS.»  ASS.-LBL."  1037 

GENLBL.«  1038 

GLAHaDA»EXCHl.«EXCH2.-    GPROP»SA  VL  1 .  »  SAy/L2  .  "RE  STLl  ."RESTL  2  .  »NIL*  103  9 

GRETUPN-    GPROGN  =  GGQ-GCOND-    Gt  L  SE  .  "GTHEN.  »GAND-GOP -N  IL#  10^*0 

GOUOTE=GStTQ»ASSIGN.-GWHILE»GFOP=CGCHtCK.=    MAKPR0PS-PRTP.«NIL*  lO^il 

SETPROPL(-     INFIX, NIL)*SETPR0PL(=UNARY*N1L)»  10<»2 

SETPRC  PL  (-MACRO,  NIL),     S6  TPROPL  (■  CODE  G,  NIL  ),  SE  TPRUPL  ( -INSTR,  NI  L  )  10<»3 

t  10<.4 

SETPROPL(«INFIXLI.,NIL),SE  TPROPL  (-UNARYLI.,NIL),  10<»5 

SETPROPL(     -MACROLI.,NIL),SETPRDPL(-CQDGENL.,NIL)  10<.6 

»     SETPROPL{-OPLIST.,NIL),     REMOVE  X . «MMEANS"MMATCH. -T 1  AC . -MATCH . -  1047 

NIL,  10<t8 

BUILO.-GENNAM.-ADOON-CODEGEN-CQM PILE- I FRGMID-MACOEF -ORDINAL-NIL     1049 

,  1050 

RDTOK£N«READ  =  TRANSLAT-  MGO. -MEQUAL  .-N IL,  1051 

CHAR. -NIL,  1052 

END  ^  1053 

END)  1054 

CHGCHAR(».,11);  1055 

RTM-      PROC(NEGS,MIXEDCL,COERS),  1056 

BE6IN(FINISHED,N,CURC0NTE,NEGLIT,NEGCL,M,USET,CL,RED0, MSET,M,  105  7 

RETAIN,  1058 

NUMSQLUT,UNIFOEPT),  1059 

DETAIL(NEGS),OETAIL(FINISHEO),  1060 

WHILE  -(N.NEGS)-NEGS  REPEAT  00  1061 

OETAIL(N),  OETAIL(OONE),  1062 

IF  SAVER  THEN  00  1063 

IF  SAVER(N)  THEN  DONE  -  Ni  DONE  1064 

END  ELSE  DONE-  NiDCNE,  1065 

NEGCL»LITLIST(N),  NEGLI T=SELECTl ( NfcGCL ) ,  REDO=  FALSE,  1066 

OETAIL(NEGCL),OETAIL(NEGLIT),  106  7 

NEGCL-COPY(NEGCL),  1068 

IF  NEGPRINT  THEN  1069 

PRINT(»<NEG  CLAUSE  ISC  NAMEOF  (  N  ),  j^L  I  TERAL  I  Si«,  Nt3  L  IT)  ,  1070 

NUMSOLUT-0,  1071 

RCNTR-  RCNTR+1,  1072 

MSET-LOOKUP(HD  NEGL  I  T, PREOCHA  I  )  ,  1073 

WHILE  -(M.MS£T)-MSET  REPEAT  DO  1074 

FINISHED=HAXLITS-CLENGTH(M)-CLENGTH(N)+1,  10  75 

IF  FINISHED  GE  0  THEN  00  1076 

POS-  POSLIT  UF{NAMEQF{M)  ),  1077 

DETAIL(N),DETAIL(M),DETAIL(POS),  1078 

UNIFDEPT-0,  1079 

PENDING-NIL, CORIO-100*  1080 
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BYPASS-  NIL*  1081 

IF((USET=MGUSET(CaPY(NEGLIT)»POS»0*FINISHED,NIL) )  NE  •     1082 

NOGOQO)  THEN  00  1083 

IF  CLAUSEPR  THEN  108<» 

PRINT(>«RESOLV£  WITH/,  NAMEQF  (  M  )  )  #  1085 

WHILE  -(U.USET)-  USET  REPEAT  DO  1086 

0ETAIL(U),DETAIL(USET),  1087 

RETAIN"  TRUE,  CL«  GENNEG{N,M,CQPY( NE GLIT ) , U,  1088 

NEGCL),  1089 

OETAIL(CL),                             '  1090 

RGEN=RGEN+1,  1091 

RETAIN-  DELATECCL,  RETAIN),  1092 

IF  E^iPTYCLA(CL)  THEN  RETURN  CL  ELSE  DO  1093 

IF  RETAIN  THENdF  CLMEM8ER  (CL,  OUN  E  )  THEN  1094 

RETAIN-  FALSE  ELSE  RETAIN-  1093 

-•CLMEMBtR(CL,NEGS)  ),  1096 

IF  RETAIN  THEN  ADDNEGS(CL)  1097 

,  IF  CLAUSEPR  AND  RETAIN  THEN  DO  1098 

PRINT(»«RESQLVENT  IS)*,  NAMEOF  (  CL  )  ,  L  IILIST  (  CL     1099 

)),  1100 

PRINT(»«MERIT  VALUE  I  S^,  MEKI  T  VAL  (CL  )  )  ,  1101 

PRINT(»'PC0L  SIZE  IS  ««,  LENGTH  (nJ  EGS  )  )  1102 

END  1103 

END  1104 

END  1105 

END  1106 

END  1107 

END,  1108 

IF  (HD  NEGLIT  EQ  ECl)  OR  (HO  NEGLIT  EQ  EQ2)  THEN  DO  1109 

RCNTP=RCNTR+1,  1110 

BYPASS-  (HD  NEGLIT  EQ  E02),  1111 

M-REFLEX,  1112 

FlNISHEO-MAXLITS-CLENGTH(N)-H,  1113 

DETAIL(FINISHED)  ,  1114 

UNIFDEPT-1, PENDING-NIL, CORIO-100,  1115 

IF(USET»MGUSET(COPY(HO  TL  NEGL IT ) , COP Y ( HO  TL  TL  NEGLIT), 0     1116 

, FINISHED, NIL)  1117 

)  NE  -NQGOGO  THEN  00  1118 

OETAIL(US£T),  1119 

IF  CLAUSEPR  THEN  1120 

PRINT(»«RES0LVE  WITH/,  NAMEOF  (  M  )  )  ,  1121 

WHILE  -(U.USbD-USET  REPEAT  DO  1122 

DETAIL(U),  1123 

RETAIN-TRUE, CL-6ENNEG(N,M, COPY (NEGL I T),U,NEGCL),  112  4 

RGEN-RGEN+l,  1125 

RETAIN-OELATE(CL, RETAIN),  1126 

IF  EMPTYCLA(CL)  THEN  RETURN( CL ) ELSE  DO  1127 

IF  RETAIN  THEN  (IF  CLMEMBER ( CL ,DQNE)  THEN  RETAIN     1128 

-  FALSE  ELSE  1129 

RETAIN--CLMEMBFR(CL,NEGS) ),  1130 

IF  RETAIN  THEN  ADDNEGS(CL)  1131 

,  IF  CLAUSEPR  AND  RETAIN  THEN  DO  1132 

IF  CLAUSEPR  THEN  1133 

PRINT(»<RESOLVENT  IS»',NAMEOF  (CL  )  ,L  ITLI  ST  (  CL  )  )  ,     1134 
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PRINKj'PQOL  size  is  C>LENGTH(NEGS)  )  1135 

END  1136 

END  1137 

END  1136 

END  1139 

END*  11^0 

IF  (HO  NEGLIT  EQ  EOl)  OR  (HD  NEGLIT  EQ  EQ2)  THEM  DO  11<»1 

BYPASS»  NIL*  11^2 

»1»  TRANS*  11^3 

FINISHE0''HAXLITS-CLENGTH(N)-1,  11<»4 

IF  FINISHED  GE  0  THEN  DO  11<,5 

IF  CLAUSEPR  THEN  11<,6 

U«  NIL:LIST(  LIST(EQ2,  C0PY(HD  TL  NEGLI T ), = ZZZ ) ,  11^7 

LISK  EC2*  -ZZZfCOPYCHD  TL  TL  NEGLIT))),  1U8 

PPINT(>«RESQLVE  Wl  TH»«,  NAMfcOF  {  M  )  )  ,  11^9 

RETAIN«TRUE»  1150 

CL«  G£NNEG(N#M,CQPY(NEGL1T)»U,NEGCL)»  1151 

RGEN=  RGEN+1,  1152 

IF  CLAUSEPR  THEN  1153 

PRINT(#kESOLVENT  I  S***  NAMEQF  (  C  L)  ,  LI  TL  1ST  (  CL  )  )*  115^ 

RETAIN=  DELATE(CL*RETAIN)*  1155 

IF  CLAUSEPR  THEN  1156 

PRINT(i<POOL    SIZE    I  S^**  LE  NGTH  (  NE6S  )  )  ,  1157 

IF  RETAIN  THEN  (IF  CLMt MBER ( CL> DONE )  THEN  RETAIN=  1158 

FALSE  ELSE  RETAIN-  1159 

-CLMEMBER(CL,NEGS)  ),  1160 

IF  RETAIN  THEN  ADONEGS(CL)  1161 

END  1162 

END,  1163 

IF  REDO  THEN  AODNEGS(N)  1164 

END  1165 

END  1166 

END?  1167 

COMPLEX-  PR3C(X),  1168 

0  1169 

END;  1170 

ONCE-     PROC(LIT),  1171 

BEGIN(J»K),  1172 

J-NA'iE0F(i>1IXEDPAP(CURC0NTE)  )  *  K -N  EGPAR  (  CURCONTE  )  *  1173 

WHILE(-INPUTCL(K) )  REPEAT  DO  1174 

IF(NAME0F(f1IXEDPAR('^))  EQ  J)  THEN  RETURN  FALSE,  1175 

K-  NEGPAR(K)  1176 

END,  1177 

RETURN  TRUE  1178 

END  1179 

ENDJ  1180 

ONCE  PARTEVAL  ONCE;  1181 

UNIQ  -    PROC(N,P,OOUT),  1182 

BEGINO,  1183 

RETURN  UOUT  EQ  NIL  1184 

END  1185 

END;  1186 

SYM1=     PROC(N,P,UQUT),  1187 

BEGINO,  1168 
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IF  GROUNO(N)  OR  GROUNO(P)  THEN  RETURN  1189 

TRUE  ELSE  RETURN  FALSE  1190 

END  1191 

END;  1192 

00WN30P    "PROCIPREO)*  1193 

BEGINOf  119<» 

HERIT»MERIT+30»    RETURN    TRUE       '  1195 

END  1196 

END}  1197 

D0WN30    PARTEVAL    OaWN30P;  1198 

PREDCHAI"    nil;  1199 

6ENCLAUS{"REFLEX,"(EC1    X    X)*    NIL)}  1200 

6ENCLAUS(»TRANS»NIL»NIL);  1201 

SAVER-NIL}  1202 

SELECT1=  PRQC(LITS)»  1203 

BE6IN(Y),  120^ 

Y«LITS*  WHILE  Y  REPEAT  DO  1205 

IF  HD  HD  Y  EQ  -f^ARK  THEN  Y«  TL  Y  ELSEIF  1206 

(GETPROP(HO  HD  Y  ,«PE)  NE  NIL)  THEN  Y-  TL  Y  ELSE  RETURN  HD  Y     1207 

END»  1208 

PRINT(#NQ  LITERAL  MAY  BE  SELCTED>«»  LITS )  #  1209 

RETURN  HD  Y  1210 

END  1211 

END}  1212 

CQERS-NIL;  1213 

RCNTR-  RGEN-  PACCPT  -0}  121<» 

N0TEQLIS»NIL;  1215 

COMPLEX  -  PEFNS-  NIL}  1216 

00NE=NIL;  1217 

MIXEDCL"  NIL}  1218 

COPYFAIL-  0}  1219 

BVARS"  TRUE}  1220 

CLAUSEPR"  TRUE;  1221 

CORID"  0}  1222 

DEBUG-FALSE;  1223 

EQl-  -EQl;  EQ2-  -EQ2;  122A 

CLAUSEID-l;  1225 

D0NE-NIL;MAXLEVEL-10;  1226 

BYPASS-  nil;  MAXCOERS-l;  NOTEGL IS-N IL;  1227 

MAXCPLEX  -  6;  1228 

HAXCPX-  65;  1229 

MAXNEST-7;  1230 

NE6PRINT  -  TRUE;  1231 

NOSI^PLE  •  FALSE}  1232 

TRACE-l;  1233 

NAXLEVEL-lOO;  1234 

HAXLITS'IO;  1235 

DO  1236 

S  A  VE  BALM  (»<  DIL  EMM  AX  ),  PR  INK -DILEMMA, -JUNE,  76)  1237 

END;  1238 

CLOSE(#DILEMMA#)|  1239 
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*  1 

♦  APPENDIX  II.                                    .  ,,,,..             2 

♦  "''''      -  ■"  '     '■•■  3 

♦  GEOMETRY  PROGRAM  LISTING  <» 

■,,-,       5 

♦  SYSTEM  UTILITIES  AND  SWITCHES  '  6 
ONEWAY=  TRUE;  7 
ALWAYS-  FALSE;  8 
CONEF-IFROMID;  9 
MAXNEST-5;  10 
NAXLEVEL*15;  11 
MAXFREE-A}  12 
MAXCPX«120;  13 
CONSTANT  1** 

STANG,  RTANG,  R  15 

END;  16 

CONSTANT  17 

I  18 

END;  19 

CONSTANT  20 

E»PiK»N»M»C.D,Q»B  21 

END;  22 

COEF'CONEF;  -       23 

MAXCOERS-l;  2<. 

POINTQ-   PROC(X),  25 

MEMBER{X,«(E  P  K  N  M  C  0  Q  B))                                             26 

END;  .                       27 

TYPE  XPT  -  POINTQ;  '                           28 

TYPE  YPT-  POINTOJ  29 

TYPE  ZPT»  POINTQ;  30 

TYPE  UPT»  POINTQ;  31 

TYPE  VPT-  POINTO;  ■    ,     !                     32 

TYPE  WPT  =  POINTQ;  '  '                      33 

TYPEG"    PROC(X)  ,  3^ 

MEMBER(X,«(R  1  ))                                                       35 

END;  36 

RO-       PROC(X),  37 

X  EQ  'R  38 

END;  BQ"  PRCC(X)»  39 

X  EQ  -I  '^O 

END;  ''I 

TYPE  TYR  »  RQ;  TYPE  TYB  -  BO;                                              '♦2 

♦  SPECIAL  CPROCS  OF  GEOMETRY  ^'i 
«  <>5 

CSYHP«    PROC(N,P,UQUT),  '•fe 

UOUT  EQ  NIL  •                       '»7 

END;  '^e 

LFIPP"    PROC(N,P,UQUT),  '•^ 

BEGINO,  '                        ^0 

WORKING  »  ^1 

(  52 

IF  VARIA6LE(N)  THEN  FALSE  ELSE  IF  VARIABLE(P)  THEN  FALSE  ELSE  53 

IF  GROUNO(N)  THEN  TRUE  ELSE  IF  GROUND(P)  THEN  TRUE  ELSE  FALSE  54 
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55 


RETURN  FN 
END 


,  IF  DEBUG  THEN  PRINK  WORKING) ,  RETURN  WORKING                       56 

END  II 

LFLIPP  CPROC  LFLIPI  ^' 

4.  60 

♦  PARTIAL  EVALUATGRS  OF  FUNCTIONS  AND  PREDICATES                         61 

♦  CANONICAL  QRDERINGS  ARE  DONE  HERt  62 

♦  63 
RLINE-    PROC(FN),  JJ 

BEGIN(X,Y)>  °5 

CRACK(»(T1  X  Y)»FN)»  66 

IF  VARIABLE(X)  THEN  00  67 

IF  VARIABLE(Y)  THEN  DO  68 

HERIT-MERIT+10*  69 

IF  X  LT  Y  THEN  RETURN  FN,  70 

IF  X  EQ  Y  THEN  DO  71 

RETAIN  •  FALSE,  RETURN  FN  72 

END,  11 

RETURN  LIST(T1,Y,X)  7'. 

END,  II 

RETURN  FN  76 

END,  II 

IF  VARIABLE(Y)  THEN  RETURN  LIST(T1,Y,X),  78 

IF(HO  X  EQ  "INTER)  THEN  RETURN  FN,                                     79 

IF(HD  Y  EQ  'INTER)  THEN  RETURN  FN,                                   80 

XPT-  HD  X,  YPT-  HD  Y,  81 

IF  XPT  EQ  YPT  THEN  DO  82 

RETAIN-  FALSE,  RETURN  FN  83 
END, 


86 
87 
88 


IF  CONEF(XPT)  LE  CONEF(YPT)  THEN  RETURN  FN,  85 
RETURN  LIST(T1,LIST(YPT),LIST(XPT)) 

END 
ENDJ 

RANG-     PROC(FN),  °; 

BE6IN(T1,X,Y,2),  1° 

CRACK(«(T1  X  Y  Z),FN),  l\ 

IF  EQt'AL(X,Y)  THEN  RETAIN-  FALSE,  92 

IF  EaUAL{X,Z)  THEN  RETAIN-  FALSE,  93 

IF  EQUAL(Y,Z)  THEN  RETAIN-  FALSE,  '*'* 

IF  -CRACK(-(T1  XPT  Y  ZPT),FN)  THEN  RETURN  FN,  95 

IF  (  COLINP(FN)  EQ  TRUE)  THEN  RETURN  L 1ST ( =STANG ) ,  96 

IF  CONEF(XPT)  LE  CONEF(ZPT)  THEN  RETURN  FN,  97 

IF  -PAIRQ(Y)  THEN  98 

IF  "VARIABLECY)  THEN  Y-  LIST(Y),  99 

RETURN  LIST(Tl,LIST(ZPr),Y,LIST(XPT))  JOJ 

END  :x, 

L  PARTEVAL  RLINE;  A  PARTEVAL  RANG;  J03 

MIDPTP-   PRGC(FN),  }": 

BE6IN(X,Y,T1),                                         ^^  \^l 

CPACK(-(TI  X  Y),FN),  IF  EQUAL(  X,Y)  THEN  RETAIN-  FALSE,  106 


107 

108 
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END;  109 

MIDPT  PARTEVAL  MIOPTP;  110 

0IFF3-    PROC(PREO),  111 

BEGINO*  112 

CPACK(=(T1  XPTl  YPTl  2PTl),PRED)  »  113 

IF  EQUAL(  XPTl,  YPTl)  THEN  RETURN  FALSE,  11<. 

IF  EQUAL  (XPT1,ZPT1)  THEN  RETURN  FALSE*  115 

IF  E0UAL(ZPT1,YPT1)  THEN  RETURN  FALSE,  116 

IF  CRACK(«(T1  XPT  YPT  ZPT),PRED)  THEN  RETURN  TRUE  ,  THEN  DO    117 

IF  -  MEMBER(XPT,LIST(ZPT,UPT,  VPT,WPT  ))  AND  ( "'lit  MBER  (  YPT,         119 

LISK  120 

ZPT,UPT,VPT,WPT)))  THEN  RETURN  TRUE,  RETURN  FALSE                 121 

END,  122 

RETURN  PRED  123 

END  12^ 

END}  125 

D1FF3  PARTEVAL  DIFF3;  126 

OOWNl  -   PROC(PREO),  127 

BEGINO,  126 

IF  --CPACKC'tTl  XPT  YPT  ZPT  UPT  VPT  WPT),PRED)  THEN  MERIT  =  MERIT+  129 

30,  130 

RETURN  TRUE  131 

END  132 

END;  133 

DOWN  PARTEVAL  OQWNl ;  134 

COLINP-   PROC(FN),  135 

BEGIN(Z,S1,S2),  136 

IF  CRACK(«(T1  XPT  YPT  ZPT),  FN)  THEN  DO  137 

IF  MEM8(TL  FN,COLINeR)  THEN  RETURN  TRUE*  138 

RETURN  FALSE  139 

END,  1<>0 

IF  CRACK(»(T1  XPT  YPT  Z),FN)  THEN  DO  141 

IF  VARIABLE(Z)  THEN  00  142 

BINO(Z,LIST(-INTER,«(R),CORID  -C QR lO+l, LIST (X P T ) ,  143 

LISK YPT),CQRIO-CaRID*l,CORID»CORIO+l) ),  144 

RETURN  TRUE  145 

END,  146 

IF  CRACK(-(T1  TYR  Tl  UPT  VPT  SI  S2),Z)  THEN  DO                    147 

IF  (XPT  EQ  UPT)  AND  (YPT  EQ  VPT)  THEN  RETURN  TRUE,  148 

IF  VARIABLE(Sl)  AND  VARIAfcLE(S2)  THEN  DO  149 

BINO(  SI, XPT), BIN0(S2, YPT), BIND(T1,»(R) ), RETURN  TRUE  150 

END,  151 

IF  ->  CRQSSES(LIST(«INTER,XPT,YPT,UPT,VPT)  )THEN  RETURN  152 

FALSE*  153 

RETURN  TRUE  154 

END  155 

END,  156 

IF  CRACK(«(T1  Z  XPT  YPT), FN)  THEN  RETURN  COLlNP( L IS T( T1,L1ST(  157 

YPT),  158 

LIST(XPT)*Z)),  159 

RETURN  FN  160 

END  161 

END;  162 
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COLIN  PARTEVAL  COLINP; 
CROSSES-  PROCCPRED), 
BE6IN(Tf L*S> J)> 

IF  -•  CRACK{«(T  XPT  YPT  UPT  VPT)* 

PREO)  THEN  RETURN  PRED* 

IF  COEF(XPT)  6T  CQEF(YPT)  THEN  DO 

T-  XPT, XPT-  YPT,  YPT-  T 
END, 
IF  COEF(UPT)  GT  CQEF(VPT)  THEN  DO 

T-  UPT,  UPT-  VPT,  VPT-  T 
END,  S-  LIST{XPT, YPT),  J-  L  1ST ( UPT, VPT  )  , 
L-  LOOKSP,  WHILE  L  REPEAT  00 

IF  MEMB(S,  HD  L)  THEN  RETURN  -'MEMB  (J,HD  D,  L-  TL  L 
END, 

RETURN  TRUE 
END 
END  ;  CROSSES  PARTEVAL  CROSSES; 
INTER-    PROC(FN), 

BE6IN(T,Sl,S2,S3,S^,TYl,TY2,ReP,ITEM), 

IF  CRACK(-(T  TYl  TY2  XPT  YPT  UPT  VPT)»FN)  THEN  DO 
IF  CQNEF{XPT)  6T  CONEFCUPT)  THEN  00 

T-  XPT,  XPT-  UPT,  UPT-  T,  T-  VPT,  VPT- YPT, YPT « T 
END, 

S1-PNAMES,S2-LIST{XPT,YPT,UPT,VPT), 
WHILE  SI  REPEAT  DO 

ITEM-HD  HO  SI,  REP-  HD  TL  HO  SI, 

IF  E(JUAL(S2,  TL  TL  ITEM)  THEN  DO 

IF(TY1  EQ  HD  ITEM)  THEN  DO 

IF(TY2  EQ  HD  TL  ITEM)  THEN  RETURN  REP, 
IF  VARIABLE(TY2)  THEN  00 

B1ND(TY2,HD  TL  ITEM),  RETURN  REP 
END 
END, 

IF(TY2  EQ  HD  TL  ITEM)  THEN  DO 
IF  VARIABLE(TYl)  THEN  DO 

BINO(TYi,HD  ITEM),  RETURN  REP 
END 
END, 
IF  VAklABLE(TYl)  AND  VARIABLE ( TY2 )  THEN  DO 

BINDCTYlfHD  ITEM),BIND(TY2,HD  TL  ITEM), RETURN  REP 
END 
END, 

SI-  TL  SI 
END 
END, 

IF  CRACK(-(T  TYR  TYR  SI  XPT  S2  YPT), FN)  THEN  (  IF  XPT  EQ  YPT 
THEN  RETURN 
YPT), 

IF  CRACK(-(T  TYB  TYR  XPT  SI  S2  YPT), FN)  THEN  (  IF  XPT  EQ  YPT 
THEN 

RETURN  XPT), 

IF  CRACK(-(T  TYB  TYR  SI  XPT  S2  YPT)  ,FN)  THEN(  IF  XPT  EQ  YPT 
THEN 
RETURN  XPT), 
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END> 
RETURN  FN 
END 
END; 


IF  C«^CK(«{T  TYB  TYB  Si  S2  S3  S^),FN)  THEN  00  217 

IF  PAIRQ(Sl)  THEN  il-  HO  51,  IF  PAIRQ(S2)  THEN  S2»  HD  S2,  218 

IF  PAIR0{S3)  THEN  S3=  HO  S3,  IF  PAIRQ(S4)  THEN  S'^-  HD  S^,  219 

IF  SI  EQ  S3  THEN  RETURN  SI,  IF  SI-  S^  THEN  RETUIN  SI,  220 

IF  S2  EQ  S3  THEN  RETURN  S2,  IF  S2  EQ  S<r  THEN  RETURN  S2  221 

222 
223 
224 

INTER  PARTEVAL  INTER;  226 

*  DILEMMA  ASSERTIONS  AND  THEOREMS  228 

♦  ANGLE  EQUALITY  230 
ASYM  COER  EQANG(X,Y),eOANG(Y,X) ;  231 
ANAME  COER  A(>,Y,Z),A(S,Y,R),C0LIN(X,S,Y)  '^  COLIN(  Z,  R,  Y ) ;  232 
ANAMEl  COER  A(X,Y,Z),A(S,Y,Z),COLIN(X,S,Y);  233 
ANAME2  COER  A ( X,  Y,  Z )  ,  A ( X, Y, R ) ,COL IN ( Z, R , Y > ;  234 
VERTICAL  THEOREM  EC ANG ( A( X, Y,  Z ) , A( U, Y, W )  )  FROM  C OL IN( X, Y, w)  *  CQLIN(U  235 
'].  236 
:^'  237 

ANGR  COER  A(X,Y,Z),A(Z,Y,X);  239 

JNIQ  CPROC  ANAMEl;  UNIO  CPROC  ANAME2;  UMO  CPROC  ANAME}  240 

LFLIPP  CPROC  ANGR;  241 

4LTER2  THEOREM  E QANGi A ( Z, Y, X ) , A ( Z, R, S  )  )  FROM  P ARALL EL ( L( X ,Y ) , L ( R, S ) )  242 

-   COLIN(P,Z,Y);  2^3 

VLTEPl  THEOREM  EG ANG{ A ( X, Y, Z ) , A( U, Z, Y) )  FROM  P AP ALL E L ( L ( Y,X ) , L ( U, Z ) ) ;  244 

^PEFLX  ASSERT  EQANG(X,X);  245 

^TRANS  THEOREM  ECiAKG(X,Y)  FROM  ttiAN6(X,Z)   *   EQANG(Z,Y)   -^   DQWN30(X);  246 

^PART  THEOREM  EQANG(  A  (  X,U,  Z  )  ,  A(  V,  R,T))  FROM  EQANG  (  A  (  X,  U,  Y  )  ,  A  (  V,  RW  )  )  247 

*  EQANG(A(Y,U,Z),A(W,R,T))  *  0QWN30(X);  248 
VCONG  THEOREM  EQANG( A ( X, Y, Z ) , A ( U» V, W) )  FROM  CONG ( X, Y, Z, U, V, W )  249 

*  DIFF3(X,Y,Z)  *  0IFF3(U,V#W);  250 
^COR  THEOREM  E&ANG( A{ R , Y, X  ) , A( Z, X, J  )  )  FROM  P ARALLEL ( L ( W, R ), L (U, Z ) )  251 

*  C0LIN{W,Y,R)  A  C0LIN(U,X,Z)  *  COL IN( Y, X, J ) ;  252 
aSSOC  THEOREM  EQANG(  A  (  X,  Y,  Z  )  ,  A  (  Y,  X,  Z  )  )  FROM  EQL  INE  (  L  (  X,  Z  ),  L  (  Y>  Z  )  )  ;  253 
kTRANS  THEOREM  EQANG(X,Y)  FROM  EUANG(X,Z)  ^  EOANG(Z,Y)  a  D0WN30(X);  254 
tTEQ  THEOREM  EUANG(  A(  X»  Y,  Z  )  ,  RTANG)  FROM  EOANG(  A(  T,  Y,  X  )  ,  RTAxJG  )  255 

*  COLIN(T,Y,Z);  25b 
■SEGMENT  EQUALITY  257 

FLIP  COER  L(X,Y),L(Y,X);  258 

SYM  COER  EQLINE(X,Y),EQLINE(Y,X)}  259 

PARBASE  THEOREM  EQL  INE ( L ( X, Y ) , L ( Y, Z ) )  FROM  260 

CLINE(L(Z,W)>L(W,V))   *   P AR ALLEL ( L ( Y, W ) ,L ( X, V) )   *   COLIS(X,Y,Z)   *  261 

OLIN(Z»W,V)  A  ONC£(X)  ;  262 

CONG  THEOREM  EOL INE ( L ( X, Y ) , L ( U, V) )  FROM  CONG( Y, Z» X, V, W, U)   *   DIFF3(X,  263 


264 
265 
266 


) 

*   DIFF3(U,V,W); 

YMl  CPROC  LSYM;  SYMl  CPROC  ASYM;  267 

MID  ASSERT  EQLINE ( L ( X , MIDP T( X, Y > ) , L ( Y,MIOPT( X, Y ) ) ) ;  268 

PART  THEOREM  EQL INE( L ( X, Y) , L ( U, V) )  FROM  269 

QLINE(L(X,R),L(U,S))   *   EQL INE ( L ( R, Y ) , L ( S, V )  )   *   COLIN(X,R,Y)  a          270 
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COLIN(U* 

S,V)} 

LTRANS  THEOREM  EQLINE( L ( X, Y) , L ( U, V) )  FROM  EQL  INE ( L ( X, Y) , L (S » T) )   * 

EQLINE(L(S,T),L(U»V) )   *   D0WN30(X); 

LREF  ASSERT  EOLINE(X,X); 

LISOC  THEOREM  EQL INE ( L ( X, Z ) , L ( Z, Y ) )  FROM  EQANG( A { Z* X, Y) » A (X , Y> Z ) ) ; 

♦  PARALLEL  LINE  THEOREMS 
PARTRANS  THEOREM 

PARALLEL(X,Y)  FROM  PAR ALLEL ( X, Z )   a   PAR ALLEL ( Z» Y )  ; 

PCRl  THEOREM  PARALLEL! L ( X, INTER ( TPl, TP2, L, V, X* Z ))» L ( X, Z ) ) 

FROM  CROSSES(X,Z,U*V); 

PARINT  THEOREM  PARALLEL (L (  INTER ( Tl » T2* X, Y, U, V )» V )* L ( S* T ) )  FROM 

PARALLEL(L(S#T)»L(U>V)  ); 

MIDPAR  THEOREM 

PARALLEL(L(Y»U),L(Z*V) )  FROM 

EQLINE(L(Z»Y),L(Y»X) )   a   COLIN{Z,YfX)   *   EQL INE ( L ( V» U) » L( U, X ) )   * 

COLIN(V,U#X)  A  ONCE(X)  ; 

PCR2  THEOREM  PARALLEL! L ( X»  INTER( TPl* TP2» X, Z, U, V) ). L ( X, Z ) )  FROM  CROSSES 

(X,Z,U,V); 

PEND  THEOREM  PARALLEL ( L ( X, Y) , L ( X, Z ) )  FROM  COL IN( X, Y, Z  )  ; 

PRASE  THEOREM  PARALLEL ( L ( X, Y )» L ( U» V ) )  FROM 

PARALLEL(L(S»Y),L(U»V)  )   *   COL  IN ( X» S> Y  )  ; 

PEXT  THEOREM  PAR ALLEL ( L (X, Y) , L ( U, V) )  FROM 

PARALLEL(L(X,Y),L(R»V)  )   *   COL  IN ( R> U* V )  ; 

PSYfl    COER    PARALLEL(X#Y)»     PARALLEL!     Y*X)} 

PI  THEOREM  PARALLEL(L(X,Y),L(L*V)  )  FROM  EQANG  (  A(  Y,  Z*  W  )  »  A(  V»  <J»  R  )  )   a 

COLIN(X,Y,Y)   A   C0LIN(Y,W,V)   a   C0LIN( S» Z* W* R  )  ; 

P2  THEOREM  PAR ALLEL ( L ( Z,  Y  )  ,L ( W» V) )  FROM 

EOANG(A(Y,Z,W),A(V,W»S)  )   a   COL  IN ( Z» W, S  )  ; 

♦  TRIANGLE  CONGRUENCE  SECTION 

CSYM  COER  CONG{X,Y»Z.U»V,*^),CONG{U»V,W,X,Y,Z); 

CASA  THEOREM  CONG( X, Y, Z#U» V, W )  FROM 

EQLINE(L(U»V),L( X,Y) )   A   EQANG(A(X,Y*Z)»A(U» V»W)  )   a   EQANG ( A( Y, X, Z  )  » 

A(W>U>V)  )  ; 

♦ 

CSYMP  CPROC  CSYM; 

CSSS  THEOREM  CONGC X» Yf Z» U> V* W)  FROM 

EQLINt{L(X,Y),L(U»V) )   a   EOL INE ( L ( Y, Z ) , L ( V» W )  )   a   tQL INE( L ( X, Z ) » L ( U, W 

)); 

CSAS  THEOREM  CONG( X, Y, Z»U» V* w )  FROM 

EQLINE(L( X,Y),L(U»V))   *   EQ ANG ( A ( X, Y, Z ) # A ( U» V* h  )  )   a   EQLI NE ( L ( Y, Z ) * L ( 

V»W) 

)» 

CPERM  THEOREM  CONGC X, Y» Z, U» V* U  )  FROM  CDNG ( Y, Z # X, V» W, U ) J 

CFLIP  THEOREM  CONG(  X,  Y»  Z»  U>  V»  «i )  FROM  CCNG  (  X,  Z  ,  Y*  U»  W*  V  )  J 

CPARAL  THEOREM  CONG ( X, Y, Z, X,U, Z )  FROM  PARALLGM ( X,U» Z, Y ) ; 

CTRANS  THEOREM  CONG ( X, Y, Z» U» V> W  )  FROM  CONG ( X# Y, Z* P* Q* R )   *   CONG(P* 

Q*R*U*V*W)   A   OOWN(X, Y,Z»U» V,W)  ; 

CREF  ASSERT  CONG( X, Y» Z # X, Y, Z ) ; 

♦ 

♦  COMPLEXITY  MEASSURE  AND  SELECTION  FUNCTIONS 

♦  THIS  SECTION  HOLDS  THE  HEURISTIC  INFORMATION 

* 

GRNDUNIT-NIL> 
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SELECT1«  PROC(LITS)»  325 

BEGIN( Y»A),  326 

Y-LITSf  327 

OETAIL(Y),  32a 

WHILE  Y  REPEAT  DO  329 

IF  HD  HD  Y  EQ  -PARALLEL  THEN  330 

00  331 

A=HD  TL  HO  Y»  332 

IF  PAIRQ(A)  THEN  A»  HO  TL  TL  A,  333 

IF  PAIRU(A)  THEN  A«  HD  A»  334 

OETAIL(A),  335 

IF  A  EQ  -INTER  THEN  RETURN  HO  Y  336 

END*  337 

♦  TEST  IF  HO  Y  IS  (PARALLEL  (L  X  (INTER  ...))  (  )  )  338 

Y-  TL  Y  339 

ENO>  340 

Y>  LITS#  WHILE  Y  REPEAT  00  3^.1 

OETAIL(Y)*  3A2 

IF  HO  HO  Y  EQ  -MARK  THEN  Y»  TL  Y  343 

ELSEIF  GFTPROP(HO  HO  Y  #-PE)  THEN  Y»  TL  Y  ELSE  RETURN  HO  Y  344 

END*  345 

PR1NT(-N0,-LIT,-MAY,-BE»-SELECTED*LITS)*  34b 

RETURN  HO  LITS  347 

END  348 

END  J  349 

COMPLEX-  PROC(LITS)»  350 

BEGIN(S.J»FND,HTcMP,FAIL»PCNT»CNT,COOE)»  351 

IF  -  LITS  THEN  RETURN  0»  352 

IF  FRtEVARS(LITS)  GT  MAXFRtE  THEN  RETURN  1000,             •^  353 

CODE-TRUE,  354 

IF  LENGTH  (LITS)  EQ  1  THEN  GRNSAVE-  HO  LITS,  355 

PCNT-0,CNT-0,  356 

S»0,  357 

FAIL-  TRUE,  358 

IF  LENGTH(LITS)  LT  (MAXLITS/2)  THEN  FAIL-  FALSE,  359 

IF  -INPUTCL(CURCONTE)  THEN  00  360 

J-NA»1EQF(MIXELPAR(CURC0NTE)  ),  361 

IF  MEMBER( J,HYP)  THEN  S-  S-5C  362 

,                                                          "  363 

IF  OEPTHVAL(CURCONTE>  GT  6  THEN  00  364 

J-  NAMEOF(MIXEOPAR(NEGPAk(CURCONTE) ) ),  IF  ME1 BER ( J, HYP )  .365 

THEN  S-  S-  366 

50  ELSEIF  MEM3ER(NA'i£0F{MlXE0PAR(NEGPAR(NEGPAR(CURC0NTE  )  367 

))),HYP)  THEN  368 

S-S-30                                                •  369 

END  370 

END,  371 

WHILE  LITS  REPEAT  DO                               .    »  372 

IF  -((J-HO  HD  LITS)  EQ  -MARK)  THEN  DO  373 

IF  J  EQ  -PARALLEL  THEN  PCNT-  PCNT  +1,  374 

IF  J  EQ  -CCLIN  THEN  CNT-  CNT  +1,  375 

IF  -(GETPRQP( J,-P£)  )  THEN  DO  376 

IF  GROUND(HO  LITS)  THEN  DO  377 

IF  MEMB£R(HD  LITS,  GRNDUNlT)  THEN  00       J.  378 
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PRINK  =«SUBSUMED>  =  BY>=GR0UND»«NE6ATIVE»«UNIT)» 
RETAIN-    FALSE^RETURN    ICOO 
END 
ENO> 

CODE-FALSE* 

IF  HASCDN(HO  LITS)  THEN  00 
FND-FALSE»HTEMP-HYP, 
WHILE(-'FND)  AND  HTEMP  REPEAT  00 

FNO-     (MGUSEKPOSHT    OF     (HO    HTE  MP  )  *  CO  P  Y(  HO    LITS)» 

0»0» 
NIL)    NE 

-NOGOOD),  IF  FSD  THEN  FAIL-FALSE* 
HTEMP-  TL  rilEMP 
END* 

IF  FND  THEN  S-  S-20  ELSE  S-  S+10 
END  *    00 

S«    S+2*VAPSNUM(HD    LITS), 

IF  J  EQ  -PARALLEL  THEN  FAIL-FALSE* 

IF  J  EQ  -CONG  THEN  00 

S-  S+  1*  FAIL-  FALSE 
END  ELSE  S=  S+1* 
IF  •'GROUND(HO  LITS)  THEN  S- 
S+  5 
END 
END 
ELSE  DO 

S-  S*^*VARSNUM(HD  LITS)  +5 
END 
END  ,  LITS  »  TL  LITS 
END* 

IF  PCNT  GE  3  THEN  RETURN  1000* 
IF  CODE  THEN  DO 

PR  I  NT (-POSSIBLE, -NULL* -CLAUSE)* RETURN  1000 
END* 

IF  FAIL  THEN  RETURN  1000* 
IF  CLENGTH(CURCONTE)  EQ  1  THEN  DO 

IF  GROUND(GRNSAVE)  THEN  6RNDUNIT-  COPY ( GRNS AVE ): GRNDUNIT 
END, 

RETURN  S 
END 
END; 

♦  THE  INPUT  FOR  THE  G5.1  EXAMPLE 

♦  Gi)  EXAMPLE  6 
HYP-  -(HI  H2  H3); 

COLINER  =  -(( (E) (P) (K)  )  (  (K)(P)(E)  )((P)(N)(M))  ((M)(N){P)) 

((K) (M)(D) )  ( (D) (M) (K) ) 

(  (E) (6)(0)  )  ((0) (B)(E)) 

((C) (M) (8) ) ( (B  )(M) (C)  ) 

(  (E)  (N)  (O)  (  (C)(N)  (E)  )  )  ; 

HI  ASSERT  PARALL£L(L(K*C)*L(E*0)  )  J 

H2  ASSERT  EQLINE(L(E,N),L(N,C)  )  ; 

H3  ASSERT  EQL INE ( L ( K*M ) ,L ( M* 0) ) ; 
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H4  ASSERT  PARALLEL(L(P»M)»L{N,M) ) 
HYP  -  »(H1  HZ  H3  H<,  )  ; 
LOOKSP»*(((K  C)(P  N)  (N  M)  (P  M) 
PNAMES»«( ((RRKPDE)E)(( 
(  (  I  I  E  C  P  M)  N)  ( (R  R  E  D  K  M) 
MEMBER=  MEM9; 
PR0VE{E0LINE(L{£»P)#L(P»K) )) ; 


(E  0)  )  ) 
R  R  C  N 
0  )  ); 


DE)£)((1REKMN)P) 


^33 
A3^ 
^35 
A36 
^37 
^38 
^39 
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